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[57] ABSTRACT 

A system for creating and modifying strings of symbols 
in a computer storage apparatus includes a two-part 
cursor for guiding the operator. One cursor part indi- 
cates the exact location where entered symbols will be 
inserted. A second cursor part highlights a selected 
substring which is the object of certain commands, such 
as the delete command. Internally, the system provides 
memory management techniques for inserting and de- 
leting symbols in response to operator commands. The 
display, including the two-part cursor, is derived from 
the memory contents with the aid of pointers, tables, 
and state variables. 

9 Claims, 8 Drawing Sheets 
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the user has to aim "one ofF' for insertion rather than 
deletion so there is no overall benefit. 

SUMMARY OF THE INVENTION 
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CROSS-REFERENCE TO RELATED 
APPLICATION 

This is a continuation-in-part of U.S. patent applica- 
tion No. 902.339, filed Aug. 29. 1986. now abandoned. ^ 

NOTICE REGARDING COPYRIGHTED 
MATERIAL 

A portion of the disclosure of this patent document 
contains material which is subject to copyright protec- 
tion. The copyright owner has no objection to the fac- ** 
simile reproduction by anyone of the patent document 
or the patent disclosure as it appears in the Patent and 
Trademark Office patent file or records, but otherwise 
reserves all copyright rights whatsoever. 
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BACKGROUND OF THE INVENTION 

This invention relates generally to a method and 
apparatus for creating and modifying a string of sym- 
bols in computer storage apparatus and, in particular, it 
relates to a method and apparatus which utilizes a two- 25 
part cursor for constantly indicating the effect of certain 
operations on a string of symbols stored in a computer. 

In certain computer applications, such as word pro- 
cessing, an operator enters selected symbols, such as, 
for example, alphanumeric characters, via a keyboard 30 
(or other entry means). The entered symbols are stored 
in the storage apparatus of the computer system where 
they become part of a string of symbols. The stored 
string of symbols defines a document which, through 
the inclusion of special page break and carriage return 35 
symbols, may be subdivided into pages and lines of text. 

All or part of the stored string of symbols is displayed 
on a display device as additional symbols are entered 
and stored. To aid the operator, a cursor is usually 
displayed to indicate the position in the string where the 40 
next entered symbol will be inserted. 

In prior art systems the cursor sits on a particular 
character (typically as: (i) a flashing block surrounding 
or, (ii) an underline beneath or, (iii) a vertical bar to the 
right or left of the character being pointed to.). The 45 
function of the cursor is to indicate a locus or site where 
a user action, such as inserting or deleting characters, 
will take place. However, in certain computer applica- 
tions, such as word processing, there are usually two 
such loci, namely (i) that character that will be replaced 50 
or displaced when a new character is typed and (ii) that 
character that will be erased when the backspace or 
delete key is typed. They are not, in general, the same 
character. This is based on mimicking the operation of 
a typewriter. 55 

In prior art systems the user has had to remember a 
rule such as: the insertion will be to the right of the 
cursor and deleting will be to the left. Neophytes find 
having to leant such a rule confusing. Even experienced 
user have trouble remembering to whence the cursor 60 
should be moved in order to insen or delete a character 
into the midst of text. For example, to remove the letter 
“x” from "anxd” in most examples of prior an systems, 
the user has to remember to move the cursor not to the 
“x", but to the “d;" but on some systems the user would 65 
have to remember to move the cursor to the "n”. On a 
very few systems the user would be able to do the obvi- 
ous and move the cursor to the “x” but on those systems 



The method and apparatus of this invention provide a 
two-pan cursor display which aids an operator in the 
creation and modification of a string of symbols. The 
two-pan cursor serves to make explicit the exact loci of 
action of insen and delete operations. A first cursor part 
(herein called the "blinker," which is differentiated 
from the highlight by flashing or through some other 
visual distinction) marks that position in the string 
where a newly typed or inserted symbol (or symbols in 
the case of the insertion of a number of symbols simulta- 
neously) will appear. A second cursor pan (herein 
called the "highlight") marks a symbol (or symbols) 
that will be the object of certain operations, and particu- 
larly of the delete operation. 

This relieves the operator from having to remember 
the confusing rules normally associated with the loci of 
action for cursor operation. 

In a preferred embodiment, when the two-part cursor 
is moved to a particular character, either by a com- 
mand. or via some device such as a joystick or mouse, 
or by some other method, the two parts both visually 
and functionally can “coalesce" onto a single character 
which then can either be deleted or can indicate the site 
where further characters will be inserted. Thus, to use 
our former example, to delete the “x" from "anxd" with 
the two-part cursor the user has to move the cursor to 
the obvious position, namely the "x". But because both 
parts of the two-part cursor coalesced when the cursor 
was moved, the user can also insert a character at that 
location. That is, on neither insertion nor deletion does 
the user have to move the cursor to a character that is 
“one off" from the desired location. The operator is able 
to concentrate on entering and deleting the desired 
symbols to create a stored string of symbols. 

BRIEF DESCRIPTION OF THE FIGURES 

FIG. 1 is a block diagram of an embodiment of a 
computing system for practicing the invention. 

FIG. 2 is a block diagram illustrating the contents of 
the storage apparatus of the embodiment of FIG. I. 

FIG. 3 is composite of FIGS. 3 a and 3 b which show 
a flow chart of the method of the preferred embodi- 
ment. 

FIGS. 4(a)-4(tfi) illustrate the contents of the text 
buffer of FIG. 2 during the operations shown in FIG. 3. 

DESCRIPTION OF THE PREFERRED 
EMBODIMENT 

FIG. 1 is a block diagram illustrating one embodi- 
ment of a computer system for practicing the invention. 
The system 10 includes a central processing unit (CPU) 
12 coupled to a keyboard 14, a display unit 16, and 
storage apparatus 18. Storage apparatus 18 may include 
external memory (such as a disk subsystem) as well as 
internal memory. Keyboard 14 is adapted for transmit- 
ting various distinguishable types of signals to CPU 12 
by means well-known in the art. For example, keyboard 
14 includes standard alphanumeric symbol keys for 
normal typing. Activation of one of these keys causes 
the transmission to CPU 12 of signals coded by standard 
means (such as ASCII) to unambiguously identify a 
particular symbol. Keyboard 14 also includes two spe- 
cial “leap" keys at opposite ends of the space bar. One 
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leap key is designated the leap backward key; the other 
is designated the leap forward key. These keys are con- 
nected to the CPU in such a way that the states in which 
either may be at any time (up or down) may be detected 
independently of the states of the other keys on the 5 
keyboard. The signls transmitted by activation (depres- 
sion) of the leap keys can be differentiated to determine 
whether either key or both keys are activated, and for 
how long. 

FIG. 2 is a block diagram illustrating the general 10 
organization of the internal memory 20 of storage appa- 
ratus 18. It will be understood that the precise storage 
location of the contents of the illustrated memory con- 
tents may vary over time, depending on the operation of 
the particular computer. Some or all of the contents 15 
may be "swapped" to and from an external storage 
device and/or may occupy different locations in inter- 
nal memory at different times. For purposes of the in- 
vention, it is only important that the memory locations 
of the contents of these blocks are addressable by CPU 20 
12 at any particular time. 

Referring now to FIG. 2, the contents of memory 20 
include a text buffer 24 for storing a string of encoded 
symbols, a screen buffer 26 for storing encoded symbols 
for display on the display device, and program area 28 25 
for storing all or part of an applications program. In this 
embodiment, the method of the invention is imple- 
mented by the execution (by the CPU) of application 
program instructions which control the contents of text 
buffer 24 and screen buffer 26. The application program 30 
uses certain other addressable memory locations, in- 
cluding at least five pointers 30, 32. 34, 36, 38, two state 
variables 40, 42, and two tables 44, 46, the function and 
contents of each of which will be described below. 

The preferred embodiment of the method of this 35 
invention will now be described in terms of the opera- 
tion of the application program on text buffer 24 and 
screen buffer 26, in response to signals from keyboard 
14. The contents of screen buffer 26 are displayed on the 
display device in a manner directly corresponding to 40 
the organization of the screen buffer. References to the 
displaying of symbols will therefore be understood to 
mean moving symbols to appropriate locations in the 
screen buffer. 

FIGS. 3a and 3b show a flow chart illustrating a 45 
preferred embodiment of the method of this invention. 
FIGS. 4a -4/ conceptually illustrate the contents of text 
buffer 24 after the operations shown in FIGS. 3a and 3b. 

Referring to FIG. 3 a. the method begins at block 102 
by initializing the system. As shown in FIG. 4a. the text 50 
buffer is initialized by inserting a one byte initial page 
break indicator 202 at the beginning Qow-address) part 
of the text buffer and a one byte final page break indica- 
tor 204 at the end of the text buffer. Page breaks serve 
to divide the text buffer into pages of symbols; no sym- 55 
bols are stored before the initial page break or after the 
final page break. 

Five pointers are shown conceptually in FIGS. 

4a -4m. These pointers are implemented by storing text 
buffer addresses in pointer storage locations 30, 32, 34, 60 
36, 38 (FIG. 2) in memory 20. Referring to FIG. 4(a), 
the pointers are shown after initialization. A BOS (be- 
ginning of selection) pointer 206 points to BOS location 
208, and an OEOS (old end of selection) pointer 210 
points to OEOS location 212. BOS pointer 206 and 65 
OEOS pointer 210 are both initialized to point to initial 
page break 202. An EOS (end-of-selection) pointer 214 
points to EOS location 216 and an EBOT (end of begin- 
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ning of text) pointer 218 points to EBOT location 220. 
EOS pointer 214 and EBOT pointer 218 are initialized 
to point to the first storage location after initial page 
break 202. A BEOT (beginning of end of text) pointer 
222 points to BEOT location 224 and is initialized to 
point to the final page break 204. 

The region 226 of the text buffer beginning at EOS 
216 and ending at the last symbol storage location be- 
fore BEOT 222 is called the Gap. No active text is 
stored in the Gap; that is, the symbols which are stored 
in the Gap are not considered part of the string of sym- 
bols being constructed. The region from BOS 208 to 
EOS 216 is called the Selection. The Selection identifies 
a substring of symbol which, as will be seen, is used as 
the object to be operated on by certain commands. 

At block 104 of FIG. 3a, a test is performed to deter- 
mine whether the signals received from the keyboard 
represent normal typing. In this embodiment, normal 
typing means the activation of one of the alpha-numeric 
keys. If the signals from the keyboard indicate normal 
typing, the signals identify a specific symbol (for exam- 
ple, in ASCII) and the identified symbol is stored (block 
106) in the text buffer. FIG. 4 (b) shows the text buffer 
after several symbols have been stored. Each symbol is 
inserted in the text buffer at EOS 216, the first location 
in the Gap. After each symbol is stored at EOS, EOS 
pointer 214 is incremented by one symbol length to 
point to the next symbol storage location. In this em- 
bodiment, the symbol length is one byte, which is one 
addressable storage location; adjacent storage locations 
therefore have consecutive addresses. 

In response to normal typing, EBOT pointer 218 is 
also incremented by one to point to the new first storage 
location in the Gap. After incrementing EOS pointer 
214, BOS pointer 206 is assigned the address of the 
symbol storage location 208 preceding EOS. 

When normal typing begins after initialization, 
OEOS pointer 210 is assigned the first value of BOS 
208, and keeps this value as long as normal typing con- 
tinues. This is the location of the first symbol entered. 

The Selection is defined by the region from BOS 208 
to EOS 216. During normal typing, the Selection there- 
fore consists of the last symbol typed (no active symbol 
being stored at EOS). 

On the display device of this embodiment, the sym- 
bols are displayed as they are entered from the key- 
board and inserted in the text buffer. According to the 
invention, a two-part cursor is also displayed (block 
108). The two parts of the cursor will be referred to as 
the blinker and the highlight. 

The blinker indicates the position in the substring 
(corresponding to EOS) where the next typed symbol 
will be inserted. In some displays (e.g. bit-mapped) the 
blinker may appear between two symbols to indicate 
precisely where the insertion will take place; in other 
displays (e.g. character oriented) the blinker appears 
over a character (or page break symbol) and the left 
edge of the blinker indicates the insertion location. The 
embodiment described herein uses a character-oriented 
display. 

The highlight indicates the Selection. The Selection 
is made obvious (and distinguished from the blinker) by 
reverse video, color, or other conventional techniques. 
During normal typing, the last symbol entered is high- 
lighted and the blinker is on the next character or page 
break symbol. 

At block HO of the flow chan of FIG. 3a, the signals 
from the keyboard are tested to determine whether both 
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leap keys are depressed. In this embodiment, the system 
responds to this action by extending the Selection 
(block 112). The Selection is considered to be extended 
when it consists of more than one character. FIG. 4 c 
illustrates the selection extension operation when it is 
performed after initialization and normal typing. BOS 
pointer 206 is moved to OEOS location 212, by copying 
the address in OEOS pointer 210 to BOS pointer 206. 
OEOS pointer 210 becomes undefined. The Selection is 
thereby extended to the entire region from BOS 208 to 
EOS 216, to include all symbols entered since initializa- 
tion. On the display, the part of the Selection which 
displayed is highlighted. (As will be seen below, the 
Selection extension operation always results in the se- 
lection of a well-defined, predictable substring; the se- IS 
lection of all symbols entered since initialization is lim- 
ited to the present example, where only normal typing 
has been performed since initialization.) When the Se- 
lection is extended, one of the aforementioned state 
variables, Selection state varible 40, is set to indicate this 20 
fact. 

Returning to the flow chart of FIG. 3, at block 114, 
the signals from the keyboard are tested to determine 
whether the leap forward key is tapped. The system 
responds to this signal in different ways, depending on 25 
the state of the two-part cursor. At block 116, the sys- 
tem tests the Selection state variable 40 to determine 
whether the Selection is presently extended. If it is, then 
at block 118 the Selection is "collapsed", i.e., restored 
to an unextenc]ed condition, wherein the Selection is 
one symbol. In this case, the Selection is collapsed 
(FIG. 4 d) to the right end of the Selection by moving 
BOS pointer 206 to the last location before the Gap (by 
assigning the address EOS-1 to BOS pointer 206). 
OEOS pointer 210 saves the old value of BOS. 

If the Selection is not extended when the leap for- 
ward key is tapped, then, at block 120, a test is made to 
determine whether the cursor is "wide." The two-part 
cursor of this invention is referred to as wide when the 
blinker follows the highlight by one character or sym- 40 
bol on the display (i.e., when the insertion location 
indicated by the left edge of the blinker immediately 
follows the highlighted character). The cursor is re- 
ferred to as narrow when the blinker and the highlight 
are on the same character or symbol on the display (i.e., 45 
when the insertion location indicated by the left edge of 
the blinker immediately precedes the highlight). The 
second state variable, cursor state variable 42. is main- 
tained to indicate a wide or narrow cursor. 

If the Selection is not extended, and the cursor is wide 
when the leap forward key is tapped, then the cursor is 
made narrow (block 122) by moving the Selection and 
highlight forward one character and modifying cursor 
state variable 42. In the text buffer, if there is a symbol 
stored at BEOT 224 (other than the final page break 55 
symbol), this symbol is moved to EOS 216, and EOS 
pointer 214, EBOT pointer 218, BOS pointer 206, and 
BEOT pointer 222 are all incremented by one. 

When the cursor is narrow, the blinker is displayed 
over the symbol stored at BOS to indicate that inser- 60 
tions will be made before this symbol. When the cursor 
is not narrow, the blinker is displayed over the symbol, 
if any, stored at BEOT. 

The effect of normal typing when the cursor is nar- 
row is shown in FIG. 4(e). BEOT pointer 222 is decre- 65 
mented by one, the symbol stored at BOS 208 is moved 
to new BEOT 224, and the typed symbol is inserted at 
BOS 208. OEOS pointer 210 saves the value of BOS 
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location 208. The cursor is changed to wide and the 
cursor state variable is updated. 

If the leap forward key is tapped and the Selection is 
not extended and the cursor is already narrow, than, at 
5 block 124, the narrow cursor is moved forward one 
symbol (unless it is already on the final page break). In 
the text buffer, if there is a symbol stored at BEOT 224. 
it is moved to EOS 216, and EOS pointer 218, BOS 
pointer 206, and BEOT pointer 222 are all incremented 
10 by one. 

Referring to FIG. 3b, if the signals from the keyboard 
indicate that the leap backward key is tapped (tested at 
block 130), the Selection state variable is tested (at 
block 132) to determine whether the Selection is ex- 
tended. If it is, then at block 134 the Selection is col- 
lapsed to the beginning of the Selection. In the text 
buffer, all symbols stored from BOS 4- 1 to EOS are 
moved to the new BEOT, effectively moving the Gap. 
The new BEOT address is calculated as: BEOT = old 
BEOT -(EBOT -EOS). EOS pointer 214 and EBOT 
pointer 218 are then modified to point to the location 
BOS+1, making it the first location of the Gap. The 
cursor is made narrow and the blinker is at the symbol 
stored on BOS. 

If the Selection is not extended when the leap back- 
ward key is tapped, the cursor state variable is tested at 
block 136 to determine whether the cursor is wide. If 
the cursor is wide, it is made narrow at block 138 by 
modifying the second state variable, causing the blinker 
10 to be moved to the symbol stored at BOS, effectively 
moving the blinker over the highlighted Selection. 

If the leap backward key is tapped and the Selection 
is not extended and the cursor is narrow, then, at block 
140, the narrow cursor is moved back one character 
J5 (unless it is already on the initial page break). Any sym- 
bol stored at BOS is moved to after the Gap, and BOS 
pointer 206, EOS pointer 214, EBOT pointer 218 and 
BEOT pointer 222 are all decremented by one. 

If the narrow cursor is on the initial page break after 
it is collapsed to the beginning of the Selection, it is 
changed to a wide cursor, because no symbols can be 
inserted before the initial page break. 

If the signals from the keyboard indicate that either 
leap key is pressed and held (block 150), this is inter- 
preted as a request to move the two-part cursor to a 
specific location. The move may be a content-based 
move in which the user specifies a substring in the text 
buffer (and possibly not on the display). The substring is 
located and displayed with a narrow cursor on the first 
50 symbol of the substring. A content-based cursor moving 
function ("leaping") is explained in detail in co-pending 
U.S. patent application serial No. 605,448. assigned to 
the assignee of the present application, the disclosure of 
which is hereby incorporated by reference. While the 
method of moving the cursor described therein is used 
in the preferred embodiment of the present invention, it 
will be understood that other conventional methods, 
such as cursor control keys, joy sticks, or "find” com- 
mands could be used with the present invention. 

FIG. Mf) shows the text buffer during a leap back- 
wards, where the text buffer before the leap is as shown 
in FIG. 4 (d). BOS pointer 206 points to the location 
leaped to, EOS pointer 214 points to the next location, 
and EBOT pointer 218 temporarily stays at the previous 
EOS location at the beginning of the Gap. The other 
pointers are not moved. FIG. 4(g) shows the text buffer 
and pointers after the leap operation is completed. All 
active text from new EOS 216 to old EBOT 220 is 
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moved to new BEOT 224, effectively moving the Gap 
up to the new EOS. EBOT pointer 218 is then set to the 
new EOS address 216, OEOS pointer 210 is set to the 
old value of BEOT, and BEOT pointer 222 is set to the 
new start of text after the Gap. The new BEOT address 
is calculated as BEOT=old BEOT— (old EBOT— new 
EOS). After leaping, the cursor state variable is set to 
narrow and the blinker is on the symbol stored at BOS. 

In an alternative embodiment, a “dragging" feature is 
provided. If the Selection is extended when the cursor 10 
movement (leap) function is invoked, the Selection is 
“dragged" to the target location and inserted there. 

A second example of extending the Selection will 
now illustrate the effect of this operation when it is 
invoked immediately after a leap. The extension opera- 15 
tion will result in the Selection being extended to the 
region bounded by the highlight before the leap and the 
highlight after the leap. FIG. 4(h) shows the effect of 
the extension operation when it is performed after the 
backward leap which results in the text buffer of 4(g). 20 
The symbols from BEOT to OEOS- 1 are moved to 
EOS 216, effectively moving the Gap to where it was in 
FIG. 4(f). EOS pointer 214 and EBOT pointer 218 are 
updated to point to the start of the new Gap. BEOT 
pointer 224 is assigned the value of OEOS. TTie Selec- 25 
tion extends from BOS to EOS and the blinker is at the 
character stored at BEOT. 

FIG. 4 (i) shows the text buffer during the leap for- 
ward operation. BOS pointer 206 points to the target 
location of the leap and EOS pointer 214 points to the 30 
next location. EBOT pointer 218 temporarily saves the 
old value of EOS. FIG. 4(f) shows the text buffer after 
completion of the leap forward. The symbols from old 
BEOT 224 to new BOS 206 are moved to the Gap at old 
EBOT 220; new EBOT pointer 218 and EOS pointer 35 
214 are then set to: old EBOT+(new EOS— old 
BEOT). BOS pointer 206 is set to EOS minus 1 and 
OEOS pointer 210 is set to the old value of EBOT 
minus 1. It is seen that OEOS pointer 210 maintains the 
address of the location which was highlighted before 40 
the leap. The cursor is narrow and the blinker is at BOS. 

If the Selection is now extended after the leap for- 
ward, the text buffer is as shown in 4 (k). BOS pointer 
206 is assigned the value of OEOS. The Selection ex- 
tends from BOS 208 to EOS 216. 

As illustrated in these examples of selection exten- 
sion, if OEOS is greater than BOS, then the BEOT 
pointer is moved to OEOS, and the EOS pointer is 
moved to the beginning of the new Gap (after account- 
ing for text moves). If OEOS is less than BOS, then the 50 
BOS pointer is moved to OEOS. Extending the Selec- 
tion immediately after a leap results in the Selection 
being bounded by the Selection before the leap and the 
Selection after the leap. Extending the Selection after 
normal typing results in a Selection consisting of all 55 
symbols typed since the last leap. 

FIG. 4 (/) shows the text buffer and pointers when 
normal typing follows the leap operation shown in FIG. 
4(f). The cursor is always narrow after a leap. When 
typing begins, the first symbol is entered at BOS 208 60 
(because the cursor is narrow) and OEOS pointer 210 
saves the value of BOS 208. If both leap keys are 
pressed, the Selection is extended by assigning the value 
of OEOS to BOS pointer 206, resulting in the extended 
Selection shown in FIG. 4 (m), wherein all symbols 65 
entered since the last leap are selected. 

The Selection may advantageously be used as the 
object for certain commands, such as print requests and 
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delete requests. Referring to FIG. 3b. if the signals from 
the keyboard indicate a delete request (block 1S5) then 
the Selection is deleted. The delete operation (block 
156) works as follows: When the cursor is wide, and the 
5 Selection is not extended, BOS pointer 206. EBOT 
pointer 218, and EOS pointer 214 are all decremented 
by one, effectively deleting the highlighted symbol by 
moving the Gap. If the Selection is extended. EOS 
pointer 214 and EBOT pointer 218 are assigned the 
address of BOS 208 and BOS pointer 206 is assigned the 
address of EOS-1. When the cursor is narrow, the sym- 
bol stored at BEOT 224 is moved to BOS 208, and 
BEOT pointer 222 is incremented by one. It will be 
noted that, when the cursor is wide (as it is during nor- 
mal typing), successive deletions work to the left; when 
the cursor is narrow (as it is after it is moved, or leaped), 
successive deletions proceed to the right. This is consis- 
tent with the usual intentions of the operator. 

Other commands that can operate on the Selection 
include “CALC" and “SEND." The "CALC" com- 
mand takes the Selection and executes it as a program. 
It may, for example, send the Selection to the system's 
BASIC interpreter, where the program is interpreted 
and executed. The output of the program is then in- 
serted at the gap and the Selection is deleted. The 
"SEND” command invokes telecommunications fea- 
tures and transmits the Selection to a remote location, 
such as another computer. A “RECEIVE" function 
may also be provided, with a message being received 
via telecommunications and inserted either at EOS (if 
there has not been any typing since the last leap) or 
OEOS (if there has been typing since the last leap). 

In the preferred embodiment, certain commands 
which operate on the Selection (block 158) will auto- 
matically extend the Selection (block 160) if they are 
invoked when the Selection is not extended. For exam- 
ple, if the print command is received and the Selection 
is unextended, the system assumes that the user does not 
intend to print only one symbol. The system therefore 
extends the Selection in the same manner it would if 
both leap keys were pressed, and then it prints the ex- 
tended Selection. Other commands, such as delete, do 
not cause automatic extension. 

The tables 44 and 46 (FIG. 2) will now be explained 
45 so that the display operation may be fully understood. 
Page table 42 contains one entry for each page of text. 
Each entry on page table 44 contains a pointer and a line 
number. The pointer contains an address in the text 
buffer of the start of each page of text. The line number 
is the line number of the start of that page, counting 
from the beginning of the text. Pages can start either 
because there are enough symbols to fill a page or be- 
cause the user entered a page break signal. After a leap 
operation, the page table is recalculated from the text 
buffer so that all of the pointers refer to the start of each 
page. This is necessary because the Gap may have been 
moved by the leap operation. It is not necessary to 
actually recalculate all page table entries, but only to 
adjust the pointer values based on how far the Gap has 
moved. Normal typing can also require updating of the 
page table from the cursor's page to the final page. 

Window table 46 consists of one entry for each line 
on the display. Each entry contains: a pointer to the text 
buffer at the location of the beginning of the line; the 
line number on the page; and the page number in the 
text. 

The content-based leap operation can result in the 
blinker being moved to a part of text buffer which is not 
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yet displayed on the display. To display the leaped-to line numbers, and page numbers of these 24 lines are 

text, the page table is searched to find which page con- stored in the window table. The display routine then 

tains the EOS. The address value EOS is compared to moves these 24 lines of text to the screen buffer for 

the page pointers in the page table until a page pointer display on the display screen. When BOS is encoun- 

having an address greater than EOS is found, identify- 5 tered, all symbols from BOS to EOS are hightlighted. 
ing the previous page as the page containing EOS. The In the preferred embodiment, the method of this 

end of the Selection (EOS) is to be displayed in the invention is performed on an Apple lie computer oper- 

middle of the display. Assuming an embodiment with 24 ating under control of the FORTH program attached as 

lines per display screen, the page table is traversed back- Appendix 1 to this application. 

ward until a page is located which at least 12 lines be- 10 The foregoing explanation of the preferred embodi- 
fore EOS. The start of the 1 1 lines preceding the line ment is intended to illustrate the invention rather than 

with EOS, the start of the line with EOS, and the 12 limit it. The scope of the invention may be ascertained 

lines after EOS are then located. The line start pointers, from the appended claims. 

APPENDIX 1 



19 

0 ( DECOMPILER ) HEX 

1 

2 : .NAME 2+ NFA ID. : 

3 

4 : ,N ( ADDR CFA -- FLAG ) 2+ >R 

5 R ' BRANCH - R ' OBRANCH - OR 

6 R ’ (+L00P) - OR R ' (LOOP) - OR 

7 DUP IF CR ENDIF 

8 R ' LIT - 0- R 1 CLIT - 0= AND 

9 IF R 2- -NAME ENDIF 

10 R 1 LIT - OR 

11 IF 2+ DUP 9 . 0 

12 ELSE R ' CLIT - 

13 IF 2+ DUP C9 . 1- 0 

14 ELSE R ' (.") - 

15 IF 2* COUNT 2DUP TYPE +2-0 

16 22 EMIT SPACE 

17 ELSE R ' ;S - 

18 ENDIF ENDIF ENDIF R> DROP ; 

19 

20 : SEE [COMPILE! ' 2- 

21 BEGIN 2+ DUP 9 ,N 

22 UNTIL DROP CR ; 

•CP * 20 

0 ( metacompiler toad block ) 

1 

2 FIRST B/BUF + -4 * DUP ' FIRST 1 PREV 1 

3 

' 4 DECIMAL 56 LOAD ( printer aids ) 

5 ( DECIMAL 57 58 THRU ( listing stuff) 

6 1 PRINTING ! ( begin printer) 

7 0ECIMAL 22 54 THRU ( trans-compiter) 

8 DECIMAL 21 LOAD ( Edde source) 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 Decompiler for Lyon's Forth 

1 
2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 

14 

15 • 

16 

17 

18 

19 

20 
21 
22 
23 

0 ( metacompiler load block ) 

1 

2 FIRST B/BUF ♦ 4 ♦ DUP ' FIRST ! PREV ! 

3 

4 DECIMAL 56 LOAD ( printer aids 

5 ( DECIMAL 57 58 THRU ( listing stuff 

6 1 PRINTING 1 ( begin printer 

7 DECIMAL 22 54 THRU ( trans-compiler 

8 DECIMAL 21 LOAD < Edde source 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 




11 
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21 

0 ( EDGE source load block ) HEX 

1 

2 LPON? HERE OLDDP ! AIM DP ! ( heading) 

3 CR There are " . . " tokens." 

4 CR CR OLDDP 9 U. top of Lyon's" 

5 CR AIM U. ." beginning of bank 2" CR 

6 AIM 4000 0 FILL ( clean compile space ) 

7 0 NAMED ! ( begin table on left ) 

8 

9 DECIMAL 60 109 THRU 
10 

11 TKTABLE DUP 200 + DP ! ' AIM ! 

12 0 NAMED ! 

13 

14 DECIMAL 110 279 THRU 

15 

16 HEX CR CR HERE ADR U. end of bank 1" 

17 OLDDP 9 DP ! ( footing ) 

18 

19 DECIMAL 280 LOAD DECIMAL 

20 
21 

22 BELL LPDONE 

23 



0 ( load screen for EDDE ) 

1 

2 LPON? HERE OLDDP ! AIM DP ! ( heading) 

3 CR ." There are " . . " tokens." 

4 CR CR OLDDP 9 U. ." top of Lyon's" 

5 CR AIM U. ." beginning of bank 2" CR 

6 AIM 4000 0 FILL < clean compile space ) 

7 0 NAMED ! < begin table on left ) 

8 

9 DECIMAL 60 109 THRU ( bank 2 routines ) 
10 

11 TKTABLE DUP 200 ♦ DP ! ' AIM ! 

12 0 NAMED 1 

13 

14 DECIMAL 110 279 THRU 

15 

16 HEX CR CR HERE ADR U. ." end of bank 1" 

17 OLDDP 9 DP ! ( footing ) 

18 

19 DECIMAL 280 LOAD DECIMAL ( set vectors ) 

20 

21 BELL LPDONE 

22 
23 



scr S 22 

0 ( CONSTANTS NAME VAR ADR ) HEX 

1 : CON CONSTANT ; ( for brevity ) 

2 

t 3 5A00 CON AIM 6A00 CON TKTABLE 

4 800 CON RAM 1200 CON LOMEM 

5 1 5A0 CON HIMEM 1 5C0 CON RTABLE 

6 1600 CON BOV B3EO CON EOV 

7 D000 CON ROM 8C00 CON SCREEN 

8 

9 VARIABLE OLDDP VARIABLE TOKENS 

10 VARIABLE BOUND VARIABLE RES 

11 

12 : NAME HERE TOKENS 8 DUP CONSTANT 0 . 

13 ?CR 3 .R 2 SPACES ID. 6 SPACES 

14 1 TOKENS +! : 

15 : ADR AIM - ROM + ; 

16 : -ADR ROM - AIM + ; 

17 : VAR TOKENS 9 CONSTANT 2 TOKENS ♦ ! ; 

18 

19 01 CON del 

20 IB CON tab 

21 24 CON CH 

22 FB CON ASAV 

23 FD CON XSAV 
23 

0 ( PAGEO VARIABLES ) HEX 

1 

2 ASSEMBLER DEFINITIONS 

3 50 CONSTANT XO ( TWO BYTE TEMPS ) 

4 52 CONSTANT XI 

5 54 CONSTANT X2 

6 56 CONSTANT X3 

7 58 CONSTANT X4 

8 5A CONSTANT X5 

9 5C CONSTANT YO ( ONE BYTE TEMPS ) 



0 ( CONSTANTS NAME VAR ADR ) HEX 

1 AKA defined for brevity. 

2 AIM compiled Swyft TKTABLE token table 

3 RAM variables/tables RTABLE ram table 

4 LOMEM, HIMEM basic 

5 BOV begin cut EOV end of text area 

6 ROM Swyft target SCREEN 

7 OLDDP old DP TOKENS next token # 

8 BOUND limits word length to y-reg range 

9 RES used by initialization 
10 

11 NAME associates a token with a word and 

12 reserves space for an address. 

13 T: later resolves this address to 

14 point to beginning of definition and 

15 compiles tokens of resolved words. 

16 ADR gives equivalent adr in ROM 

17 -ADR gives equivalent adr at AIM 

18 VAR associates a token with a word 

19 

20 key assignments. 

21 CH cursor position SSAV status register 

22 ASAV accumulator PSAV processor reg 

23 XSAV x r egister YSAV y register 

0 < PAGEO VARIABLES ) HEX 

1 two byte assembler temporaries: 

2 X0.X0+1 

3 XI ,X1+1 

4 X2.X2+1 

5 X3.X3+1 

6 X4.X4-1 

7 X5.X5+1 

8 one byte assembler temporaries: 

9 YO 



ID CON cr 
1C CON ff 
FF CON SSAV 
FC CON PSAV 
FE CON YSAV 




13 
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10 5D CONSTANT Y1 

11 5E CONSTANT Y2 

12 5F CONSTANT WC ( WRAP COUNT ) 

13 60 CONSTANT WR ( WRAP AODRESS ) 

14 62 CONSTANT VB ( VARIABLE ADDRESS ) 

15 64 CONSTANT TSTAT ( XMIT STATUS ) 

16 65 CONSTANT RSTAT ( RCEV STATUS ) 

17 66 CONSTANT XSAVE 

18 67 CONSTANT YSAVE 

19 68 CONSTANT SSAVE 

20 69 CONSTANT IP 

21 6B CONSTANT NEXT 

22 AO CONSTANT SPO 

23 FORTH DEFINITIONS 



10 Y1 

11 Y2 

12 other temporaries: 

13 WC.WR wrap address and count of line to 

14 wrap, answer left in page table, e.g. 

15 VB variable address used by TO. 

16 TSTAT. transmit status used by .INTERRUPT 

17 RSTAT receive status used by .INTERRUPT 

18 XSAVE x-reg temporary storage. 

19 YSAVE y-reg temporary storage. 

20 SSAVE status reg temporary storage. 

21 IP forth interpretive pointer. 

22 NEXT forth next (within word) pointer. 

23 SPO forth stack. 



scr 8 24 

0 ( PASS 1 ) 

1 

2 VOCA8ULARY SOURCE IMMEDIATE 
r 3 SOURCE DEFINITIONS 
4 



5 

C 


-99 TOKENS ! 


( FRAGs use in code only 


D 

7 


NAME 


•NEST ( 


begins T: words ) 


8 


NAME 


• XLAT ( 


keyboard lookup table ) 


9 


NAME 


•DISPO ( 


address of display lines 


10 


NAME 


. DISP1 




11 


NAME 


. SCRO ( 


auxiliary display ) 


12 


NAME 


. SCR1 




13 


NAME 


. MSGO 


NAME XYNEXT 


14 


NAME 


• QUE 


NAME YNEXT 


15 


NAME 


■ ON 


NAME .ON/OFF 


16 


NAME 


.SCR 


NAME .CURSOR 


17 


NAME 


•PRINT 


NAME .DEFAULT 


18 


NAME 


.CH>F 


NAME . 8>F 


19 


NAME 


■INTERRUPT NAME .RECEIVE 


20 


NAME 


•LTABLE 


NAME .USINGLE 


21 


NAME 


. RESET 


NAME .MOVE-VARS 


22 


NAME 


.MON 


NAME . 40COL 


23 


NAME 


. STARTU 


NAME _JN0U 


25 








0 

1 

2 


( SOURCE ) 




NAME 


. LEMIT2 


NAME D.LEMIT2 


3 


NAME 


■NEWDISK 


NAME O.ZPMOVE 


4 


NAME 


. CDISK 


NAME D. CDISK 


5 


NAME 


.AUX 


NAME D.AUX 


6 


NAME 


.MAIN 


NAME D.MAIN 


7 


NAME 


■XNEXT 


NAME 0. XNEXT 


8 


NAME 


.MONITOR 


NAME D. MONITOR 


9 


NAME 


• B/F 


NAME O.B/F 


10 


NAME 


.0444 


NAME 0.D444 


11 


NAME 


• CH/F 


NAME D .CH/F 


12 


NAME 


.XFER 


NAME D.XFER 


13 


NAME 


.RTS 


NAME D.RTS 


14 


NAME 


.LEMIT 


NAME 0. LEMIT 


15 


NAME 


. START 


NAME D. START 


16 


NAME 


.BOOT 


NAME 0.800T 


17 








18 


NAME 


*1 OOUS 


NAME .SERIALS 


19 


NAME 


ONDL 


NAME OFFDL 


20 


NAME 


DL12 


NAME WB30 



0 ( PASS 1 ) 

1 

2 negative tokens prevent tokenization 

3 into token table: used for FRAG 

4 machine code 

5 

6 the following are all NAME definitions: 

7 .NEST ( begins T: words ) 

8 .XLAT ( keyboard lookup table ) 

9 .DISPO ( address of display lines) 

10 .DISP1 

11 .SCRO ( auxiliary display ) 

12 . SCR1 



13 


.MSGO 


XYNEXT 


14 


-OUE 


YNEXT 


IS 


• ON 


.ON/OFF 


16 


.SCR 


•CURSOR 


17 


.PRINT 


.DEFAULT 


18 


.CH>F 


. B>F 


19 


. INTERRUPT 


-RECEIVE 


20 


. LTABLE 


•USINGLE 


21 


. RESET 


•MOVE-VARS 


22 


.MON 


. 40COL 


23 


. STARTU 


■ ENOU 


0 


( SOURCE ) 




1 


disk version 


routines: 


2 


. LEMIT2 


D.LEMIT2 


3 


.NEWDISK 


O.ZPMOVE 


4 


.CDISK 


D. CDISK 


5 


.AUX 


D.AUX 


6 


.MAIN 


D.MAIN 


7 


.XNEXT 


D. XNEXT 


8 


.MONITOR 


D. MONITOR 


9 


■ B/F 


D.B/F 


10 


.0444 


D.D444 


11 


• CH/F 


D.CH/F 


12 


.XFER 


D.XFER 


13 


.RTS 


D.RTS 


14 


•LEMIT 


D. LEMIT 


15 


.START 


D . START 


16 


■ BOOT 


D.BOOT 


17 


disk operations: 


18 


«100US 


-SERIALS 


19 


ONDL 


OFFDL 


20 


DL1 2 


WB30 




IS 



4,806,916 



16 



21 NAME PHSW NAME PHSW2 

22 NAME . SWYFT NAME . SENOSWYFT 

23 NAME .WRAP NAME BMP 



scp # 26 



0 ( SOURCE DEFINITIONS ) 

1 

2 ( bank2 routines ) 



3 


NAME 


800T1 




NAME 


MATCH 


4 


NAME 


2. REVERSE 




NAME 


2.TOBUFF 


5 


NAME 


2. ADJUST 




NAME 


2.7APPLE 


6 


NAME 


2.SEEIO 




NAME 


2.7EDDE 


7 


NAME 


2.SEEK< 




NAME 


2. CHECKSUM 


8 


NAME 


2.CMOVE2 




NAME 


2 . 7UPDATE 


9 


NAME 


2 . <SEEK> 




NAME 


2 . ENDWRAP 


10 


NAME 


2.<WRITE> 




NAME 


2. PRESET 


11 


NAME 


2 . 40C0L 




NAME 


2.ABOOT 


12 


NAME 


2. MON 








13 


NAME 


2 . <READ> 




NAME 


2. NUDGE 


14 


NAME 


2.WRITE0 




NAME 


2 . PAGEPRINT 


IS 


NAME 


2 . SHOWPAGE 




NAME 


.DECIMATE 


16 


NAME 


2. SERIAL# 




NAME 


2 . SM 


17 


NAME 


2.V 




NAME 


2.8K 


18 


NAME 


2.7X 




NAME 


2.QUE 


19 


NAME 


2 . SETMODEM 




NAME 


2. CONTROL 


20 


NAME 


2.HARDPAGE 




NAME 2 . SOFTPAGE 


21 


NAME 


2. STOP? 




NAME 


2 . INCPAGES 


22 


NAME 


end_of_bank2 






23 












27 












0 


( SOURCE DEFINITIONS ) 




1 

2 


( tokenized words 


; called 


by T : wopds 


3 

4 


UPON"! 


1 CR 0 TOKENS 


; ! 






5 

6 


NAME 


.BLIT ( 


0 


) 




7 


NAME 


. 28YTERS ( 


1 . 


not yet required 


8 


NAME 


.LIT ( 


2 


) 




9 


NAME 


.BRAN ( 


3 


) 




10 


NAME 


.OBRAN ( 


4 


> 




11 


NAME 


• DO ( 


5 


) 




12 


NAME 


•LOOP ( 


6 


) 




13 


NAME 


EXIT ( 


7 


) 




14 


NAME 


. VARIAB ( 


must be 


token # 8) 


15 


NAME 


.♦LOOP ( 


9 


) 




16 


NAME 


.LEAVE ( 


A 


) 





17 

18 

19 

20 
21 
22 
23 



scp # 28 

0 ( SOURCE DEFINITIONS ) 

1 

2 NAME DUP • NAME 2DUP 

3 NAME ?0UP NAME DROP 

' 4 NAME ROT NAME OVER 



21 PHSW 


PHSW2 


22 .SWYFT 


.SENOSWYFT 


23 .WRAP 


BMP 



0 

1 

2 


( SOURCE DEFINITIONS ) 




bank 2 routines: 




3 


BOOT! 


MATCH 




4 


2. REVERSE 


2.T0BUFF 




5 


2. ADJUST 


2 . 7 APPLE 




6 


2 . SEEK> 


2.7EDDE 




7 


2 . SEEK< 


2. CHECKSUM 




8 


2.CMOVE2 


2 . 7UPDATE 




9 


2.<SEEK> 


2 . ENDWRAP 




10 


2 . <WRITE> 


2. PRESET 




11 


2 . 40C0L 


2.ABOOT 




12 


2. MON 






13 


2 . <READ> 


2. NUDGE 




14 


2.WRITE0 


2. PAGEPRINT 




15 


2 . SHOWPAGE 


.DECIMATE 




16 


2. SERIAL# 


2.8M 




17 


2. V 


2.BK 




18 


2.7X 


2.0UE 




19 


2. SETMODEM 


2. CONTROL 




20 


2 . HARDPAGE 


2. SOFTPAGE 




21 


2 . STOP? 


2. INCPAGES 




22 


end_of_bank2 






23 








0 


( SOURCE DEFINITIONS ) 




1 


beginning of 


tokenization at 


TKTA8LE . 


2 


NAME cpeates token table and saves a 


3 


space for 


an address; 




4 


T: later places address in 


TKTABLE 


S 


which points to code for 


a word 1 s 


6 


definition . 




7 








8 


TOKEN : NAME: 




9 


0 


• BLIT 




10 


1 


. 2BYTERS 




11 


2 


-LIT 




12 


3 


.BRAN 




13 


4 


.OBRAN 




14 


5 


.DO 




15 


6 


• LOOP 




16 


7 


EXIT 




17 


8 


.VARIAB must be 


token 8 


18 




because 8 is used as the 


19 




high byte address for 


20 




variable table 


(S0800) 


21 


9 


.EXITLOOP 




22 


A 


.♦LOOP 




23 


B 


•LEAVE 




0 

1 

2 


( SOURCE DEFINITIONS ) 




tokenization 


of metacompiled 


FORTH: 


3 


DUP 


2DUP 




4 


7DUP 


DROP 






17 
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5 NAME SWAP 

6 NAME R> 

7 NAME >R 

8 

9 NAME 9 

10 NAME ! 

11 NAME +1 

12 

13 NAME NEGATE 

14 NAME ANO 
1 5 NAME XOR 
1 6 

1 7 
1 8 

19 

20 
21 
22 
23 

29 

0 ( SOURCE ) 

1 

2 NAME -1 

3 NAME 1 

4 NAME ♦ 

5 

6 NAME 1 + 

7 NAME 2* 

8 NAME - 

9 NAME U< 

10 NAME UM/MOD 

11 NAME UMAX 

12 

13 NAME CMOVE 

14 NAME FILL 

15 NAME NOOP 

16 

17 NAME TO 

18 NAME ADDR 

19 

20 NAME MS 

21 
22 
23 



NAME SWAB 
NAME R@ 
NAME I 

NAME Ca 
NAME C! 



NAME ABS 
NAME OR 



NAME 0 
NAME 2 
NAME - 

NAME 1- 
NAME U2/ 
NAME 0- 
NAME 0< 

NAME UMIN 
NAME OMAX 

NAME CM0VE> 

NAME BEEP 

NAME *T0 



18 



5 ROT OVER 

$ SWAP SWAB 

7 R> Re 

8 >R I 

9 

10 a ca 

11 ! C! 

12 + ! 

13 

1 4 NEGATE ABS 

15 AND OR 



16 XOR 

17 

18 

19 

20 
21 
22 
23 

0 ( SOURCE ) 

1 

2 tokanization of metacompiled FORTH 
3-1 0 

4 1 2 



5 

6 


♦ 


“ 


7 


1 ♦ 


1 - 


8 


2* 


U2/ 


9 


- 


0- 


10 


U< 


0< 


11 


UM/MOD 


UMIN 


12 

13 


UMAX 


OMAX 


14 


CMOVE 


CMOVE> 


15 


FILL 




16 

17 


NOOP 


BEEP 


18 


TO 


♦TO 


19 

20 


ADDR 




21 

22 

23 


MS 





sc.' # 30 



0 

1 

2 


( SOURCE ) 






0 

1 

2 


{ SOURCE ) 




NAME 


WR! 


NAME 


WR8 


tokenization 


of Swyft: 


3 


NAME 


WC9 


NAME 


ROM? 


3 


WR! 


WR8 


4 


NAME 


LEXLEN 


NAME 


TOPLINE 


4 


WC9 


ROM? 


5 










5 


LEXLEN 


TOPLINE 


6 


NAME 


BOW 






6 






7 


NAME 


LOCLIN 


NAME 


LOCCHR 


7 


BOW 




8 


NAME 


SEL 


NAME 


’COLLAPSE 


8 


LOCLIN 


LOCCHR 


9 










9 


SEL 


7COLLAPSE 


10 


NAME 


DOPAGING 


NAME 


NEXTPAGE 


10 






11 


NAME 


FIXTABLE 


NAME 


NOTMATCH? 


11 


OOPAGING 


NEXTPAGE 


12 


NAME 


PAGEWRAP 


NAME 


SAVEPAGE 


12 


FIXTABLE 


NOTMATCH? 


13 










13 


PAGEWRAP 


SAVEPAGE 


14 


NAME 


PREALIGN 


NAME 


♦ALIGN 


14 






IS 


NAME 


INCPAGES 


NAME 


LASTPAGE 


15 


PREALIGN 


♦ALIGN 








cr # 32 



0 

1 

2 


( SOURCE ) HEX 






0 

1 

2 


( SOURCE ) HEX 




NAME 


SETDISP ‘ 


NAME 


SIGNON 


tokenlzation of 


Swyf t: 


3 


NAME 


MSGO 


NAME 


CLEAR 


3 


SETDISP 


SIGNON 


4 


NAME 


SCROLL 






4 


MSGO 


CLEAR 


S 


NAME 


OISP 


NAME 


AUXIL 


5 


SCROLL 




6 


NAME 


7BLINK 


NAME 


7L8LINK 


6 


OISP 


AUXIL 


7 


NAME 


ON 


NAME 


OFF 


7 


7BLINK 


7LBLINK 


8 










8 


ON 


OFF 


9 


NAME 


OUE 






9 






10 


NAME 


?K 


NAME 


SK 


10 


QUE 




11 


NAME 


7E 


NAME 


?A 


11 


?K 


SK 


12 


NAME 


?X 


NAME 


?S 


12 


?E 


?A 


13 


NAME 


?D 


NAME 


FLUSH 


13 


?X 


?S 


14 










14 


70 


FLUSH 


15 


NAME 


SETMOOEM 


NAME 


MEMIT 


15 






16 


NAME 


?M 


NAME 


7LE 


16 


SETMOOEM 


MEMIT 


17 


NAME 


CONTROL 


NAME 


MAPPEND 


17 


?M 


?LE 


18 


NAME 


7SEN0 


NAME 


7RECFULL 


18 


CONTROL 


MAPPENO 


19 










19 


7SEN0 


7RECFULL 


20 










20 






21 










21 






22 










22 






23 










23 








21 
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33 



0 


( SOURCE ) HEX 




0 


( SOURCE } HEX 




1 








1 


tokenization of 


Swyft: 


2 


NAME 


PRINT 


NAME SETPRINTER 


2 


PRINT 


SETPRINTER 


3 


NAME 


LEMIT 


NAME LTYPE 


3 


LEMIT 


LTYPE 


4 


NAME 


LCR 


NAME LCRS 


4 


LCR 


LCRS 


S 


NAME 


PAGEPRINT 


NAME ENOPAGE 


5 


PAGEPRINT 


ENDPAGE 


6 


NAME 


LMARGIN 


NAME ULEMIT 


6 


LMARGINS 


ULEMIT 


7 

Q 


NAME 


ENDU 


NAME STARTU 


7 

a 


ENDU 


STARTU 


o 

9 


NAME 


REVERSE 




o 

9 


REVERSE 




10 


NAME 


SEEK> 


NAME SEEK< 


10 


SEEK> 


SEEK< 


11 


NAME 


FLIP/TRIM 


NAME FLIP 


11 


FLIP/TRIM 


FLIP 


12 


NAME 


7LEXXED 




12 


? LEXXED 




13 


NAME 


RENCUR 


NAME LEXCUR 


13 


RENCUR 


LEXCUR 


14 


NAME 


DEL 


NAME [SEARCH] 


14 


OEL 


[SEARCH] 


IS 


NAME 


SEARCH 


NAME <SEARCH> 


15 


SEARCH ' 


<SEARCH> 


16 


NAME 


REP 


NAME EXPAND 


16 


REP 


EXPAND 


17 


NAME 


AUTOEXTENO 




17 


AUTOEXTENO 




18 


NAME 


LEX 


NAME REX 


18 


LEX 


REX 


19 


NAME 


LXX 


NAME RXX 


19 


LXX 


RXX 


20 


NAME 


PRELEX 


NAME POSTLEX 


20 


PRELEX 


POSTLEX 


21 


NAME 


LEXREX 


NAME OUTLEX 


21 


LEXREX 


OUTLEX 


22 


NAME 


MOVE-GAP 




22 


MOVE -GAP 




23 


NAME 


CREEPSHOW 


NAME CREEPER 


23 


CREEPSHOW 


CREEPER 



scr # 34 

0 ( SOURCE ) HEX 

1 

2 NAME BASIC 




0 ( SOURCE ) HEX 

1 

2 tokenization of 


BASIC words: 


4 NAME TOBASIC 


NAME TO IN PUT 


3 BASIC 

4 




S NAME APPEND 


NAME F>B 


5 TOBASIC 


TOINPUT 


6 NAME VALIDATE 


NAME START 


6 APPEND 


F>B 


7 NAME INITBASIC 




7 VALIDATE 


START 


8 NAME DEFVARS 


NAME RESETVARS 


8 INITBASIC 




9 NAME BEFORE 


NAME AFTER 


9 DEFVARS 


RESETVARS 


10 NAME 7MOVETEXT 


NAME MOVETEXT 


10 BEFORE 


AFTER 


11 NAME WIOTHCHANGE 




11 MARGIN-CHANGES 


CHECKCHANGES 


12 NAME MARGIN-CHANGES 


NAME CHECKCHANGES 


12 SAVESTRINGS 


LOADSTRINGS 


13 NAME SAVESTRINGS 


NAME LOADSTRINGS 


1 3 SAVES 


LOADS 


14 NAME SAVES 


NAME LOADS 


14 V8 


V! 


15 NAME V8 


NAME V! 


15 V 




16 NAME V 

17 NAME FRAGMENTS 




16 FRAGMENTS 

17 ROM-FRAGMENTS 


DISK-FRAGMENTS 


18 NAME ROM-FRAGMENTS 


NAME DISK-FRAGMENTS 


18 




19 

20 
21 
22 
23 
35 

0 ( SOURCE ) 

1 

2 NAME LOAD 


NAME SAVE 


19 

20 
21 
22 
23 

0 ( SOURCE ) 

1 

2 tokenization of disk operations 


3 NAME DRAG 


NAME GET 


3 LOAD 


SAVE 


4 NAME BOOT 




4 DRAG 


GET 


5 

6 NAME DISKON 


NAME PROT? 


5 BOOT 

6 




7 NAME 7EDDE 


NAME 7 APPLE 


7 DISKON 


PROT? 


8 NAME ACT 


NAME DEACT 


8 7EDDE 


7APPLE 


9 NAME CHECKSUM 


NAME SERIAL# 


9 ACT 


DEACT 




23 



4,806,916 



10 


NAME 


RECAL 






11 


NAME 


<SEEK> 


NAME 


SEEK 


12 


NAME 


<READ> 


NAME 


READ 


13 


NAME 


<WRITE> 


NAME 


WRITE 


14 


NAME 


OLDLOAD 


NAME 


<l_OAD> 


15 


NAME 


WRITES 


NAME 


WRITEO 


16 


NAME 


APPLEDISK 


NAME 


ABOOT 


17 


NAME 


. 40C0L 


NAME 


.MON 



18 

19 

20 
21 
22 
23 



scp # 36 

0 < SOURCE ) HEX 

1 



2 


NAME 


MAIN 


NAME 


LOOKUP 


3 


NAME 


COLD 


NAME 


WARM 


4 


NAME 


INIT 


NAME 


<INIT> 


5 

C 


NAME 


RAMKEYS 


NAME 


? RAMKEYS 


o 

7 


NAME 


DELETE 


NAME 


CUT 


8 

Q 


NAME 


<ENTER> 


NAME 


NEWPAGES 


» 

10 
4 1 


NAME 


BUG 


NAME 


RP! 


1 1 
12 


NAME 


ENTER 


NAME 


PASTE 


13 


NAME 


TAB 


NAME 


RESET 


14 


NAME 


DISK 


NAME 


SEND 



15 

16 

17 

18 

19 

20 
21 
22 
23 
37 

0 ( END OF SOURCE DEFINITIONS ) HEX 

1 

2 00 ' .NEST LFA 

3 FORTH DEFINITIONS 

4 ! 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 



24 



10 


CHECKSUM 


SERIALS 


11 


RECAL 




12 


<SEEK> 


SEEK 


13 


<READ> 


READ 


14 


<WRITE> 


WRITE 


IS 


OLDLOAD 


<LOAD> 


16 


WRITES 


WRITEO 


17 


APPLEDISK 


ABOOT 


18 


.40COL 


• MON 


19 






20 






21 






22 






23 







0 

1 

2 


( SOURCE ) 






MAIN 




LOOKUP 


3 


COLD 




WARM 


4 


INIT 




<INIT> 


5 


RAMKEYS 




? RAMKEYS 


6 








7 


DELETE 




CUT 


8 


<ENTER> 




NEWPAGES 


9 








10 


BUG 




RP! 


11 








12 


ENTER 




PASTE 


13 


TAB 




RESET 


14 


DISK 




SEND 


15 








16 


storing a 0 


in 


the If a of the first 


17 


definition 


of 


SOURCE vocabulary limit 


18 


vocabulary 


searches to SOURCE 



19 

20 the value in tokens represents the 

21 actual number of tokens placed into 

22 the table 

23 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



LPDONE TOKENS 9 
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25 


26 


21 




21 




22 




22 




23 




23 





SCP 1 


t 


38 
















0 


( 


VARIABLES 


) 






0 ( VARIABLES 


) 


1 


ASSEMBLER DEFINITIONS 


800 


TOKENS ! 


1 beginning of variables at RAM (S0800). 


2 


( 


800 


) 


VAR 


ORIGIN 


808 


TOKENS ! 


2 ORIGIN 




, 3 


( 


808 


) 


VAR 


BOT 






3 BOT 


beginning of text. 


4 


( 


80A 


) 


VAR 


BEOT 






4 BEOT 


beginning of end of text. 


5 


( 


80C 


) 


VAR 


EBOT 






5 EBOT 


end of beginning of text. 


6 


( 


80E 


) 


VAR 


EOT 






6 EOT 


end of text. 


7 


( 


810 


) 


VAR 80S 






7 BOS 


beginning of selection. 


8 


( 


812 


) 


VAR 


EOS 






8 EOS 


end of selection. 


9 


( 


814 


) 


VAR 


TOP 






9 TOP 


top line on screen. 


10 


( 


816 


) 


VAR 


BOC 






10 BOC 


beginning of cut buffer. 


11 


( 


818 


) 


VAR 


OEOS 






11 OEOS 


old end of selection. 


12 


( 


81 A 


) 


VAR 


BOTTOM 






12 BOTTOM 


bottom of all text area. 


13 


( 


81C 


) 


VAR 


DIRTY 






13 OIRTY 


state of text. 


14 


< 


81 E 


> 


VAR 


LOCAL 1 






14 LOCAL 1 


(used as flag for creep). 


15 


( 


820 


) 


VAR 


OIN 






15 QIN 


pointer to que input. 


16 


( 


822 


> 


VAR 


QOUT 






16 QOUT 


pointer to que output. 


17 


( 


824 


> 


VAR 


NARROW 






17 NARROW 


state of cursor. 


18 


( 


826 


) 


VAR 


CHAR 






18 CHAR 


character buffer. 


19 


< 


828 


> 


VAR 


LONG 






19 LONG 


lines of text per page. 


20 


( 


82A 


) 


VAR 


WIDE 






20 WIDE 


columns on page. 


21 


( 


82C 


) 


VAR 


YWRAP 






21 YWRAP 


horizontal wrap. 


22 


( 


82E 


) 


VAR 


XFLAG 






22 XFLAG 


state of apple (lex) keys. 


23 


( 


830 


) 


VAR 


LCTR 






23 LCTR 


cumulative line counter. 


39 




















0 


( 


VARIABLES 


) HEX 






0 { VARIABLES 


) HEX 


1 


( 


832 


) 


VAR 


PCT 






1 PCT 


page count (temporary). 


2 


( 


834 


) 


VAR 


LCT 






2 LCT 


line count (temporary). 


3 


( 


836 


) 


VAR 


LINES 






3 LINES 


total # of lines in text. 


4 


< 


838 


) 


VAR 


PAGES 






4 PAGES 


total # of pages in text. 


5 


( 


83A 


) 


VAR 


CLIN 






5 CLIN 


current cursor screen line. 


6 


( 


83C 


) 


VAR 


OLIN 






6 OLIN 


old cursor line position. 


7 


( 


83E 


) 


VAR 


GAP 






7 GAP 


space remaining (BEOT-EBOT) . 


8 


( 


840 


) 


VAR 


LINE# 






8 LINE# 


line number. 


9 


( 


842 


) 


VAR 


PAGE# 






9 PAGE# 


page number. 


10 


< 


844 


> 


VAR 


CTR 






10 CTR 


counter for blink rate. 


11 


( 


846 


) 


VAR 


LINREL 






11 LINREL 


relative line. 


12 


< 


848 


) 


VAR 


LINADR 






12 LINADR 


line address. 


13 


( 


84A 


) 


VAR 


PAGEFLAG 






13 PAGEFLAG 


state of page change. 


14 


( 


84C 


) 


VAR 


EFLAG 






14 EFLAG 




15 


c 


84E 


) 


VAR 


EOW 






15 EOW 


end of window. 


16 


( 


850 


) 


VAR 


RETN 






16 RETN 


BASIC horizontal position. 


17 


( 


852 


) 


VAR 


RETNCHR 






17 RETNCHR 


character passed from BASIC 


18 


( 


854 


) 


VAR 


COL# 






18 COL# 


horizontal position. 


19 


( 


856 


) 


VAR 


.LF 






19 .LF 


line feed (see SETPRINTER) . 


20 


( 


858 


) 


VAR 


.BL 






20 .BL 


blanks to print for margin. 


21 


( 


85A 


) 


VAR 


LRFLAG 






21 LRFLAG 


state of loxxing. 


22 


( 


8 SC 


> 


VAR 


CT 






22 CT 




23 


( 


85E 


) 


VAR 


PRINTBREAK 






23 PRINTBREAK 


state of page break display 



scr # 
0 


( 


40 

VARIABLES 


) HEX 


0 


( VARIABLES 


) HEX 


1 


( 


860 


) 


VAR 


E# 


1 


E# 


line •# of EOS. 


2 


( 


862 


) 


VAR 


B# 


2 


B# 


line # of SOS. 


3 


( 


864 


) 


VAR 


VECT 


3 


VECT 




4 


( 


866 


) 


VAR 


OLDE# 


4 


OLDE# 


previous line # of EOS 
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5 ( 868 ) VAR OLDBB 

6 ( 86A ) VAR NUFLAG 

7 ( 86C ) VAR LEXXING 

8 ( 86E ) VAR PTR 

9 ( 870 ) VAR W/2 
10 ( 872 ) VAR TRACK 
It ( 874 ) VAR XPOS 

12 ( 876 ) VAR YPOS 

13 ( 878 ) VAR MQIN 

14 ( 87A ) VAR MQOUT 

15 ( 87C > VAR BLO 

16 ( 87E ) VAR BL1 

17 ( 880 ) VAR BANK 

18 ( 882 ) VAR SAVECHAR 

19 ( 884 ) VAR FIRST 

20 ( 886 ) VAR SIZE 

21 ( 888 ) VAR ABOVEX 

22 ( 88A ) VAR BELOWX 

23 ( 88C ) VAR PAGES 
41 

0 ( VARIABLES > HEX 

1 ( 88E > VAR NIARGINX 

2 ( 890 ) VAR HALF-TRACK# 

3 ( 892 ) VAR LINESCOUNT 

4 < 894 ) VAR EXTENOED 

5 ( 896 ) VAR LPAGEX ( 898 ) VAR PFLAGX 

6 ( 89A ) VAR THOROUGH? 

7 ( 89C ) VAR LASTC 

8 ( 89E ) VAR PRINT? ( 8AO ) VAR OLDPAGE 

9 ( 8A2 ) VAR OISK# ( 8A4 } VAR OLDISK# 

10 ( 8A6 ) VAR SAVEO? 

11 ( SAB ) VAR FILLED-LEN 

12 < 8AA ) VAR SSC? ( 8AC ) VAR TEOS 

13 ( 8AE ) VAR SPACING ( 8B0 ) VAR LINENDX 

14 ( 8B2 > VAR SENDX ( 8B4 ) VAR HEADS 

15 ( 8B6 ) VAR PLENX ( 808 ) VAR LOCAL2 

16 < 8 BA ) VAR UFLAG ( SSC ) VAR BELL? 

17 < 8BE ) VAR SAVED ( SCO ) VAR RESEEK 

18 ( BC2 ) VAR NEW80TT0M 

19 ( 8C4 ) VAR CUTPAGES 

20 ( 8C6 > VAR WRAPDONE 

21 

22 8DO CONSTANT USTART 808 CONSTANT UEND 

23 8E0 CONSTANT PBUF 



28 

5 OLDB# previous tine # of BOS. 

6 NUFLAG state for new display. 

7 LEXXING state for lex/rex operation. 



8 


PTR 




9 


W/2 




10 


TRACK 


desired track number. 


11 


XPOS 


display cursor x position. 


12 


YPOS 


display cursor y position. 


13 


MQIN 


modem que input pointer. 


14 MQOUT 


modem que output pointer. 


15 


BLO 


used for cursor blinking. 


16 


BL1 


used for cursor blinking. 


17 


BANK 


active display bank. 


18 


SAVECHAR 




19 


FIRST 




20 


SIZE 




21 


ABOVEX 


# of lines on top of page. 


22 


BELOWX 


# of linos et bottom. 


23 


PAGEX 


page number to print. 


0 ( 


VARIABLES 


) HEX 



1 MARGINX # of soaces for left margin. 

2 HALF-TRACK# 

3 LINESCOUNT 

4 EXTENDED 

5 LPAGEX 

6 PFLAGX 

7 THOROUGH? wrap without interruption . 

8 LASTC last command buffer. 

9 PRINT? state for printing. 

10 OLDPAGE 

11 DISK# disk identification #. 

12 OLDISK# old disk identification #. 

13 SAVED? FILLED-LEN unused. 

14 SSC? flag for super serial care. 

15 TEOS temporary EOS. 

16 SPACING LINENDX 

1 7 SENDX HEADX 

18 PLENX page length LOCAL 2 xflag buffer 

19 UFLAG backup to u'l BELL? sound bell? 

20 SAVED tracks saved RESEEK find header. 

21 

22 underlining: USTART. UEND. 

23 PBUF PRS buffer. 



scr # 42 

0 ( ARRAYS ) HEX 

1 

2 900 CONSTANT PATT 920 CONSTANT KQUE 

3 930 CONSTANT CURR 980 CONSTANT UPDATE 

4 998 CONSTANT WNOO 9B0 CONSTANT WND1 

5 9C8 CONSTANT WND2 9E0 CONSTANT WND3 

6 A00 CONSTANT PGSO BOO CONSTANT PGS1 

7 COO CONSTANT PGS2 D00 CONSTANT PGS3 

8 

9 E00 CONSTANT <LEMIT2> 

10 E10 CONSTANT <NDISK> 

11 E70 CONSTANT <CDISK> 

12 E80 CONSTANT <ZPMOVE> 

13 EEO CONSTANT <AUX> 

14 EFO CONSTANT <MAIN> 

15 FOO CONSTANT <XNEXT> 



0 ( ARRAYS ) HEX 

1 PATT search pattern KQUE key queue 

2 CURR printer/screen buffer for line. 

3 WNOO. WND1 addr for line on display (WR) 

4 WN02 line on page (LCT) 

5 WN03 page number (PCT) 

6 PGSO. PGS1 addr for page (WR) 

7 PGS2. PGS3 cumulative B of lines ( LCTR) 

8 

9 <IEMIT2> printer routine. 

10 <NDISK> call 3600. 

11 <C0ISK> clear disk. 

12 <ZPM0VE> zero page move. 

13 <AUX> 

14 <MAIN> 

15 <XNEXT> exit from bank 2 routine. 
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16 


FI 0 


CONSTANT 


<MON> 


17 


F20 


CONSTANT 


<B/F> 


18 


F30 


CONSTANT 


<D444> 


19 


F40 


CONSTANT 


<CH/F> 


20 


F50 


CONSTANT 


<XFER> 


21 


F60 


CONSTANT 


<RTS> 


22 


F70 


CONSTANT 


<LEMIT> 


23 


FAO 


CONSTANT 


<START> 



43 

0 ( END OF VARIABLES ) 

1 

2 1000 CONSTANT BASICO 

3 1100 CONSTANT BASIC1 

4 1140 CONSTANT FORTHO 

5 11 AO CONSTANT FORTH 1 

6 B400 CONSTANT MGUE 

7 FFF8 CONSTANT ROM? 

8 

9 0 ' A. PLACE LFA 

10 FORTH DEFINITIONS 

11 ! 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



30 

16 <MON> call to Apple monitor. 

17 <B/F> basic/forth interface. 

18 <D444> call to Apple BASIC. 

19 <CH/F> character from basic to forth. 

20 <XFER> entry for bank 2 routine. 

21 <RTS> return from Apple BASIC. 

22 <LEMIT> printer routine. 

23 <START> setup before BASIC. 



0 

1 

2 

3 

4 

5 

6 
7 
a 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



( END OF VARIABLES ) 

BASICO BASIC zero page. 

BASIC1 BASIC page 1 . 

FORTHO forth zero page. 

F0RTH1 forth page 1 . 

TIMER programmable counter 
. IVEC input from modem routine 
. OVEC output to modem routine 
■SVEC initialize modem routine 
•QVEC poll modem routine 
MQUE modem que - holds input 
ROM? if the Swyft system is operating 
from a disk then the value at this 
location probably will be different 

placing a 0 in the Ifa of the first 
definition stops vocabulary searches 



ccr # 44 

0 ( COMPILER DEFINITIONS ) VOCABULARY 

1 COMPILER IMMEDIATE COMPILER DEFINITIONS 

2 : DO SOURCE .DO FORTH C, 3 ; 

3 : IF SOURCE .0BRAN FORTH C, 

4 HERE 0 C. 2 ; 

5 : BEGIN HERE 1 ; : WHILE IF 2 * ; 

6 : >RESOLVE HERE BOUND 9 - SWAP C! ; 

7 : <LOOP> C. FORTH BEGIN DUP 4 - WHILE 

8 DROP >RESOLVE REPEAT 3 ?PAIRS : 

9 : LOOP SOURCE .LOOP FORTH <LOOP> ; 

10 : +LOOP SOURCE .+LOOP FORTH <LOOP> ; 

11 : <RESOLVE C, 1 7PAIRS BOUND 8 - C. ; 

12 : UNTIL SOURCE .OBRAN FORTH <RESOLVE : 

13 : AGAIN SOURCE .BRAN FORTH <RES0LVE i 

14 : THEN 0 >R FORTH BEGIN DUP 4 - 

15 WHILE >R >R REPEAT 2 ?PAIRS >RESOLVE 

16 BEGIN R> -DUP WHILE R> REPEAT ; 

17 : REPEAT >R >R AGAIN R> R> 2- THEN ; 

18 ;• ELSE 0 >R FORTH BEGIN DUP 4 - WHILE 

19 >R >R REPEAT 2 ?PAIRS SOURCE .BRAN 

20 FORTH C. 0 C, >RESOLVE HERE 1- 2 

21 BEGIN R> -DUP WHILE R> REPEAT ; 

22 : LEAVE SOURCE .LEAVE FORTH C, HERE 4 

23 0 C. ; : ENDIF THEN : 



0 ( COMPILER DEFINITIONS ) VOCABULARY 

1 immediate compiler commands 

2 DO ( — 3) compile .DO token 

3 IF ( — 2) compile .OBRAN token 

4 BEGIN ( —here 1) 

5 WHILE ( — 4) 

6 >RES0LVE ( n — ) resolve forward ref. 

7 <LOOP> ( 3 .loop compile .LOOP 

8 LOOP ( 3 — ) compile .LOOP 

9 +LOOP ( 3 compile .+L00P 

10 UNTIL ( f —) compile .OBRAN 

11 AGAIN ( — ) compile .BRAN 

12 : THEN 0 >R FORTH BEGIN DUP 4 • 

13 WHILE >R >R REPEAT 2 ?PAIRS >RESOLVE 

14 BEGIN R> -DUP WHILE R> REPEAT ; 

15 : REPEAT >R >R AGAIN R> R> 2- THEN ; 

16 : ELSE 0 >R FORTH BEGIN DUP 4 - WHILE 

17 >R >R REPEAT 2 ?PAIRS SOURCE .BRAN 

18 FORTH C. 0 C. >RESOLVE HERE 1- 2 

19 BEGIN R> -DUP WHILE R> REPEAT ; 

20 LEAVE compile .LEAVE 0 . here 40c. 

21 ENDIF then 

22 
23 




31 
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45 

0 ( COMPILER DEFINITIONS ) 

1 

2 00 ' DO LFA 

3 FORTH DEFINITIONS 

4 ! 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



sc r # 46 

0 { MORE COMPILER > HEX 

1 

2 : 7C0MMAND 1 "COMPILER 2+ 8 (FIND) 

3 IF DROP CFA EXECUTE 1 ELSE 0 ENDIF ; 

\ 

4 

5 : ?VAR ' ASSEMBLER 2+ 0 (FINO) DUP 

6 IF 2DROP 0 OUP 8FF U> 

7 IF SOURCE .LIT FORTH C, 

8 ELSE SWAB 

9 ENOIF , 1 ENOIF ; 

10 

11 : 7C0MPILE ’ SOURCE 2* 0 (FIND) DUP 

12 IF 2DR0P 8 OUP 0< ABORT" FRAGment:" 

13 C. 1 ENDIF ; ( all 1 byte tokens ) 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

47 

0 ( MORE COMPILER ) HEX 

1 

2 : ?NUM ( addr — ) 

3 0 OVER OUP C3 1+ » ROT 1 ♦ 

4 DO I C0 10 DIGIT 

5 IF SWAP 10 * + 

6 ELSE R> R> . " compile error: " 

7 HERE COUNT TYPE ABORT 

8 ENDIF 

9 LOOP DUP 100 U< 



0 ( COMPILER DEFINITIONS ) 

1 

2 store 0 in Lfa of first word in 

3 compiler vocabulary to Limit searches 

4 

5 GET# common to ERRORIS. CALL, and >NUM 

6 

7 ERRORIS compile error# phrase 

8 

9 CALL compile call and address 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 ( MORE COMPILER ) HEX 

1 

2 : 7COMMAND ( adr — flag) 

3 true-executed compiler word 

4 false-not a compiler word 

5 

6 : 7VAR ( adr — flag) 

7 true-compiled either a .lit or 

8 .variable and its value 

9 false-not an assembler word 
10 

11 : 7COMPILE ( adr — flag) 

12 true-compiled a token 

13 false-not a source word, abort if 

14 token is negative (i.e., a fragment) 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 ( MORE COMPILER ) HEX 

1 

2 : 7NUM ( addr -- ) 

3 in T: if it is not Tcommand, ?var or 

4 ?compile then try to convert it to a 

5 number; if successful, compile as a 

6 .blit or .lit (as appropriate), if not 

7 then abort with a compile error. 

8 
9 
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33 



10 IF SOURCE .BLIT FORTH C. C. 10 

11 ELSE SOURCE .LIT FORTH C. , 11 

12 THEN ; '2 

13 13 

14 14 

15 15 

16 15 

17 17 

18 18 

19 '9 

20 20 

21 21 

22 22 

23 23 



scr B 48 

0 ( MORE COMPILER > HEX 

1 

2 : T* { — pfa ) 

3 BL WORD ' SOURCE 2+ 9 (FIND) 0- 

4 ABORT" not NAMEd " DROP 

5 NAMED 8 1 XOR DUP NAMED ! 

6 IF CR 0 OUT ! 

7 ELSE 28 OUT 9 - SPACES 

8 THEN 

9 BASE 8 HERE ADR HEX U. BASE ! 

10 DUP 9 DUP 0< 

11 IF DROP 5 SPACES 

12 ELSE 3 .R SPACE SPACE 

13 THEN HERE COUNT TYPE SPACE : 

14 

15 : ! FRAG HERE ADR SWAP 2+ ! 

16 [COMPILE] ASSEMBLER : 

17 

18 

19 

20 
21 
22 
23 

49 

0 < MORE COMPILER ) HEX 

1 

2 : FRAG T* DUP ! FRAG 9 0< 0» 

3 IF FRAG has a token" ABORT THEN ; 

4 

5 : LABEL T' DUP ! FRAG DUP 9 0< 

6 IF LABEL with no tokan" ABORT THEN 

7 HERE ADR SWAP 9 DUP * TKTABLE ♦ ! : 

8 

9 : T: LABEL 

10 20 C. SOURCE 1 .NEST FORTH 2+ 9 . 

11 HERE 1- BOUND ! 

12 BEGIN BL WORD 9 3B01 > 0- 

13 WHILE HERE 7C0MPILE 0- 

14 IF HERE 7C0MMAND 0- 

15 IF HERE ?VAR 0- 

16 IF HERE ?NUM 

17 ENDIF END IF ENDIF 

18 REPEAT HERE BOUND 9 - FF U> 

19 ABORT" definition too large" 

20 SOURCE EXIT FORTH C. ; 



0 ( MORE COMPILER ) HEX 

1 

2 : T' ( — pfa ) 

3 abort if word not defined by NAME. 

4 otherwise print out its address and 

5 its token and than leave pfa on stack 

6 

7 : IFRAG ( pfa — ) resolve NAMEd word 

8 for fragment with ROM+offset 

9 and leave in assembler 
10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 ( MORE COMPILER ) HEX 

1 : FRAG ( — ) if it is a fragment then 

2 associate an address with the name 

3 (where the address points to code) 

4 otherwise abort. the address is not 

5 placed in the token table. 

6 FRAGs are called by JSR and end in RTS 

7 

8 : LABEL ( --) if it is a label then 

9 associate an address with the token in 

10 in the token table. abort it token is 

11 a code fragment (i.e., <0). LABELS 

12 are machine code ending with JMP NEXT. 

13 

14 : T: ( — ) compiles tokenized words. 

15 if NAME is found then compile JSR .NEST 

16 to execute tokenized words, and compile 

17 tokens until found. 

18 if BOUND exceeds SFF then the word is 

19 too large for Y register incrementation 

20 by NEXT so abort. 




21 

22 

23 



35 
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21 T: definitions end with JMP NEXT. 

22 
23 



scr B 50 

0 ( MORE COMPILER ) 

1 

2 : \ BL WORO * SOURCE 2+ 0 (FIND) 
t 3 IF DROP 2+ 0 DUP 0- 

4 IF HERE COUNT TYPE 

5 not yet a FRAGment" ABORT ENOIF 

6 ELSE HERE COUNT TYPE 

7 ."not NAMEd" ABORT ENDIF ; 

8 

9 : TNEXT. ASSEMBLER NEXT JMP. ; 

10 

11 : " 22 WORD C0 1* ALLOT : 

12 

13 : H. SWAB C. ; 

14 

15 : TARGET AIM 1000 - 17 4000 >DISK ; 

16 

17 

18 

19 

20 
21 
22 
23 

51 

0 ( ADDITIONS TO THE METACOMPILER ) HEX 

1 

2 : 7FITS { # — | aborts if HERE is 

3 more than B bytes beyond a page ) 

4 HERE OFF AND SWAP U< 

5 ABORT" Doesn't fit. Try again" ; 

6 

7 : XFER LABEL 

8 BL WORD ' SOURCE 2* 0 (FIND) 

9 0- ABORT" doesn't exist " 

10 DROP DUP 0 0< 

11 0» ABORT" don't transfer to a token " 

12 2+0 ASSEMBLER DUP 

13 YSAVE STY, 

14 OFF AND BB LDY, 

15 SWAB OFF AND BB LDA, 

16 <XFER> JMP. ; 

17 

18 

19 

20 
21 
22 
23 
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0 ( PROM BURNER FOR 2764' S ) ;S HEX 

1 

2 COAO CONSTANT ORA ( DATA A ) 

3 DRA 2+ CONSTANT DRB ( DATA B ) 

4 DRA 1+ CONSTANT CRA { CTLR A ) 



0 ( MORE COMPILER ) 

1 

2 : \ ( — token) 

3 find a NAME; if not NAMED or not a 

4 resolved fragment then abort. 

5 

6 : TNEXT. 

7 ending for a T: definition. 

8 

9 : " 

10 compile a string into the dictionary. 

11 

12 : H. 

13 compile the hi byte only. 

14 

15 

16 : TARGET 

17 save image of Swyft program on T1.7 

18 disk. 

19 

20 
21 
22 
23 

0 ( ADDITIONS TO THE METACOMPILER ) HEX 

1 

2 : 7FITS aborts if HERE is 

3 more than B bytes beyond a page 

4 

5 

6 

7 : XFER 

8 PURPOSE: transfer to machine language 

9 routine in bank 2. return through 

10 <xnext>. 

11 

12 if the next two words are defined then 

13 point the first word to the following 

14 code: 

15 save y-reg and (using the resolved 

16 address in the first word) 

17 IdaB hi-byte and IdyB lo-byte 

18 then JMP <XFER>. 

19 

20 
21 
n 

23 



0 ( PROM BURNER FOR 2764 'S ) ;S HEX 

1 
2 

3 

4 
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38 



37 



5 DRA 3 ♦ CONSTANT CRB ( CTRL B ) S 

6 VARIABLE CNT 6 

7 : MS 0 DO 5 0 DO LOOP LOOP : 7 

8 : ?T 7TERMINAL IF QUIT ENDIF ; 8 

9 : !ANO OVER C9 AND SWAP C! ; 9 

10 : !0R OVER C9 OR SWAP C! ; 10 

11 : PGML ORB FB .'AND ; 11 

12 : PGMH DRB 04 !0R ; 12 

13 : CEL DRB DF ! AND ; 13 

14 : CEH DRB 20 !0R ; 14 

15 : OEL DRB EF ! AND ; 15 

16 : OEH DRB 10 !0R ; 16 

17 : VPPL ORB 80 !0R ; 17 

18 : VPPH DRB 7F '.AND ; 18 

19 19 

20 : INA CRA FB .'AND 0 ORA C! CRA 4 !0R ; 20 

21 : OTA CRA FB 1AN0 FF DRA C! CRA 4 '.OR : 21 

22 : 0T8 CRB FB ! AND FF DRB C! CRB 4 !0R ; 22 

23 23 
53 

0 ( PROM PROGRAMMER ) ;S HEX 0 ( 

1 1 

2 : CAL CRA C9 38 OR F7 AND CRA C! ; 2 

3 : CAH CRA 38 IOR ; 3 

4 : CBL CRB C9 38 OR F7 AND CRB C! ; 4 

5 : CBH CRB 38 !0R ; 5 

6 6 

7 : INI OTB INA PGMH CEH OEH 7 

8 DRB FC ! AND 8 

9 VPPL CEH PGMH OEH ; 9 

10 : RES CBH CBL 0 CNT ! 10 

11 DRB FC ! AND : 11 

12 : COU CAL CAH 1 CNT +! ; 12 

13 : I NCR ( INCREMENT HIGH BITS > 13 

14 DRB C8 DUP 1+ 3 AND SWAP FC AND OR 14 

15 DRB C! ; 15 

16 : BUMP COU CNT 9 OFFF AND 0- 16 

17 IF INCR ENDIF ; 17 

18 : ZAP PGML 35 MS PGMH ; 18 

19 : SETS -DUP IF 0 DO BUMP LOOP THEN ; 19 

20 20 

21 21 

22 22 

23 23 



PROM PROGRAMMER ) ;S HEX 
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0 < PROM PROGRAMMER ) ;S HEX 

1 

2 : BURN CEL VPPH OTA RES SETS 

3 OVER + SWAP 

4 DO I C9 DRA C! ZAP BUMP ?T LOOP INI ; 

5 : READ INA CEL OEL RES SETS 

6 OVER + SWAP 

7 DO DRA C9 I C! BUMP ?T LOOP INI ; 

8 : GET 30 EOV RAM 

9 DO I OVER 1 R/W 1+ 400 +LOOP DROP ; 

10 : SAVE 30 EOV RAM 

11 DO I OVER 0 R/W 1+ 400 +LOOP DROP : 

12 : START GET RE ; 

13 : ROMO INI AIM 1000 0 BURN 

14 AIM 3000 + 800 1000 BURN ; 

15 : R0M1 INI AIM 1000 + 2000 0 BURN : 



0 ( PROM PROGRAMMER ) ;S HEX 

1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 




39 
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16 DECIMAL 

17 : COPIER 141 1 5 BLKCOPY SAVE-IMAGE 

1 8 SAVE ; 

19 

20 
21 
22 
23 

55 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( writing a target image to disk ) HEX 

1 

2 VARIABLE NAMED 0 NAMED ! 

3 VARIABLE PRINTING 1 PRINTING ! 

4 

5 : ?CR ( — ) NAMED 9 1 XOR DUP NAMED ! 

6 IF CR 0 OUT ! 

7 ELSE 28 OUT 9 - SPACES THEN ; 

8 

9 : LPON? PRINTING 8 IF LON THEN : 

10 : LPDONE PRINTING 9 IF FORM LOFF THEN ; 

11 

12 : >DISK < a n # -> | copy # bytes 

13 from address a to bLock n ) 

14 400 /MOD SWAP >R 

15 OVER + DUP >R SWAP DO 

16 DUP I BLOCK 400 CMOVE 

17 UPDATE FLUSH 400 ♦ 

18 LOOP R> BLOCK R> CMOVE 

19 UPDATE FLUSH ; 

20 
21 
22 
23 



16 

17 

18 

19 

20 
21 
22 
23 . 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 ( writing a target image to disk ) HEX 

1 

2 NAMED is used to determine which half of 

3 the page to print listing; a toggle 

4 

5 PRINTING Is a flag to determine if a 

6 listing is to be printed. 

7 

8 ?CR ( — ) 

9 formatting word for printing listing 

10 during compilation. 

11 

12 : LPON? PRINTING 9 IF LON THEN ; 

13 : LPDONE PRINTING 9 IF FORM LOFF THEN ; 

14 

15 >DISK (an#—) 

16 copy # bytes from address a to block n. 

17 

18 

19 

20 
21 
22 
23 
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57 



0 

1 

2 


( LISTIT. INDEXIT ) 


0 

1 

2 


( LISTIT, INOEXIT ) DECIMAL 


: PRINIT 


: PRINIT 


3 


LON 27 EMIT 77 EMIT 27 EMIT 61 EMIT ; 


3 


printer initialization string 


4 


: PLIST BASE 9 ROT ROT OECIMAL PRINIT 


4 




5 


1+ SWAP DO I 2+ I DO 


5 


: PLIST 


6 


I BLOCK I 140 ♦ BLOCK 


6 




7 


SCR #" I 0 3 D.R 


7 




8 


1* 


8 


: PINDEX 


9 


SCR # " I 140 ♦ 0 3 D.R CR 


9 




10 


25 0 DO " 


10 




1 1 


I 0 3 D.R " 40 0 DO 


11 




12 


OVER J 40 * I ♦ ♦ C9 EMIT LOOP 


12 




13 


»l I* 


13 




14 


I 0 3 D.R ." " 40 0 DO 


14 




15 


• DUP J 40 * I + ♦ C8 EMIT LOOP CR 


15 




16 


LOOP CR CR CR CR DROP DROP 


16 




17 


LOOP FORM 2 +LOOP LOFF BASE 1 : 


17 




18 


: PINDEX DECIMAL PRINIT 1+ SWAP DO 


18 




19 


I 60 ♦ 281 MIN I 00 I BLOCK I 0 4 D.R 


19 




20 


" 40 0 DO DUP I ♦ C8 EMIT LOOP CR 


20 




21 


DROP LOOP FORM 60 +LOOP LOFF ; 


21 




22 




22 




23 




23 





scr It 
0 ( 
1 

2 : 
3 

' 4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 : 

17 

18 

19 

20 
21 
22 
23 

59 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
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LISTIT. INDEXIT & LOAD CONTROL ) 

LISTIT BASE -8 ROT ROT DECIMAL PRINIT 
1+ SWAP DO I 4 + I DO 
I BLOCK I 1+ BLOCK 

SCR # * I 0 3 D.R 

SCR #"11+03 D.R CR 
25 0 DO 

I 0 3 D.R " 40 0 DO 

OVER J 40 » I ♦ ♦ C9 EMIT LOOP 

n n 

I03D.R." " 40 0 DO 

DUP J 40 « I ♦ + C8 EMIT LOOP CR 
LOOP CR CR CR CR DROP DROP 
2 +LOOP FORM 4 +LOOP LOFF BASE ! ; 
INDEXIT DECIMAL PRINIT 1+ SWAP 00 
I 48 ♦ 281 MIN I DO I BLOCK I 0 4 D.R 
.« » 40 0 DO DUP I ♦ C9 EMIT LOOP CR 

DROP LOOP FORM 48 +LOOP LOFF ; 



0 { LISTIT, INDEXIT & LOAD CONTROL ) 

1 

2 : LISTIT 

3 

4 : INDEXIT 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



10 

11 

12 

13 

14 

15 
15 

17 

18 

19 

20 
21 
22 
23 
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0 < BOOT1 copy EDOE to ramcard ) HEX 

1 

2 FRAG B00T1 3EI. 00 KB LDA, 

3 67F8 STA, 67F9 STA. ( disk id ) 

4 3C STA, 42 STA, 

5 20 KB LDA, 3D STA. 43 STA. 

6 2F KB LDA. 3F STA. FF K8 LDA. 3E STA. 

7 SEC, C311 JSR. ( auxmove ) 

8 C009 STA. C083 LDA. C083 LDA. 

9 00 KB LDA, 3C STA. 42 STA. 

10 20 KB LDA. 3D STA. DO KB LDA. 43 STA. 

11 2F KB LDA. 3F STA. FF KB LDA. 3E STA. 

12 SEC, C31 1 JSR, ( auxmove ) 

13 C08F LDA. C08F LDA. 

14 00 KB LDA. 3C STA. 42 STA. 

15 38 KB LDA. 30 STA. DO KB LDA. 43 STA. 

16 67 KB LDA. 3F STA. FF KB LDA. 3E STA. 

17 SEC, C31 1 JSR, < auxmove ) 

1 8 C005 STA. C003 STA, 

19 0 KB LDA. 39E STA, ( force cold start) 

20 0200 JMP, 

21 
22 
23 

61 

0 < 2. REVERSE ) HEX 

1 

2 ( START LENGTH ) 

3 FRAG 2. REVERSE 

4 0 SP) LDA. XO STA, 

5 1 SP) LDA. XO 1* STA, 

6 2 SP) LDA. XI STA. 

7 3 SP) LDA. XI 14 STA. 

8 I NX, I NX, I NX, INX, XSAVE STX. 

9 0 KB LDX, 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



0 FRAG BOOTI 

1 PURPOSE: move EDDE image to romcard. 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 FRAG 2. REVERSE ( start Length — ) 

1 PURPOSE: reverse the order of bytes. 

2 e.g., first byte is placed at the end, 

3 Last byte is placed at the beginning. 

4 REASON: to move a section of a Length 

5 from 1 end to the other in place (ie. 

6 without a buffer of equal length) can 

7 be done with a reverse of the entire 

8 section then reversal of 2 subsets of 

9 the length. 

10 

11 store the length in XO. the starting 

12 address in XI . 

13 set X-reg to 0 to defeat addressing 

14 mode (eg. LDA(Sz-page-adr ,X) ) . 

15 while the length is greater than 2, 

16 decrement the number of pages (XO) . 

17 set X2 to be equal to X0*X1 minus 

18 1 page and decrement X0+1 . 

19 swap 1 page of bytes betw XO.Y (Y-FF) 

20 and (X2.X) (X-0) . 
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21 

22 

23 
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0 ( 2. REVERSE ... ) HEX 

1 

2 BEGIN. XO 1+ LDA. 2 ft8 CMP. CS 

3 WHILE, XO 1+ DEC, CLC. 

4 XI LDA, XO ADC, X2 STA. 

5 XI 1+ LDA, XO 1+ AOC, X2 1+ STA, 

6 XO 1+ DEC. OFF #B LDY, 

7 BEGIN. XI )Y LDA. X3 STA. 

8 X2 X) LDA. XI )Y STA. X3 LDA. 

9 X2 X) STA. DEY, X2 INC. EQ 

10 UNTIL. X2 1+ INC. OFF »B CPY. NE 

11 IF, 0 »B CPY. NE 

12 IF. 

13 BEGIN. 

14 XI )Y LDA. X3 STA. X2 X) LDA. 

15 XI )Y STA. X3 LDA. X2 X) STA. 

16 X2 INC, DEY. EQ 

17 UNTIL. 

18 ENDIF. 

19 XI )Y LDA. X3 STA. X2 X) LDA, 

20 XI )Y STA. XI )Y STA. X3 LDA. 

21 X2 X) STA, 

22 ENDIF, XI 1+ INC. 

23 REPEAT, 

63 

0 < 2. REVERSE ... ) HEX 

1 

2 XO LDA, .A LSR, CLC, 

3 XO 1 ♦ LDY, NE IF. 80 ftB ADC. ENDIF. 

4 TAY. 

5 XI ADC, X2 STA. 0 RB LDA. 

6 XI 1+ ADC. X2 1* STA. 

7 XO LSR. CS 

8 IF, X2 INC. EQ IF, X2 1* INC. ENDIF. 

9 ENDIF. 

10 BEGIN. DEY. OFF RB CPY, NE 

11 WHILE, 

12 XI )Y LDA, X3 STA. 

13 X2 X) LDA. XI ) Y STA. 

14 X3 LDA. X2 X) STA. 

15 X2 INC, EQ IF. X2 1+ INC. ENDIF. 

16 REPEAT, 

17 XSAVE LDX, <XNEXT> JMP. 

18 

19 

20 
21 
22 
23 



46 

21 exchange the last bytes. 

22 ... 

23 



0 ( 2. REVERSE... ) HEX 

1 

2 BEGIN, XO 1+ LDA. 2 BB CMP. CS 

3 WHILE. XO 1+ DEC, CLC. 

4 XI LDA, XO ADC. X2 STA, 

5 XI 1+ LDA. XO 1+ AOC. X2 1+ STA. 

6 XO 1+ OEC. OFF BB LDY. 

7 BEGIN. XI ) Y LDA. X3 STA. 

8 X2 X> LDA, XI )Y STA. X3 LDA, 

9 X2 X) STA. DEY. X2 INC. EO 

10 UNTIL. X2 1+ INC. OFF BB CPY. NE 

11 IF. 0 BB CPY. NE 

12 IF. 

13 BEGIN. 

14 XI )Y LDA, X3 STA, X2 X) LDA, 

15 XI )Y STA. X3 LDA. X2 X) STA. 

16 X2 INC. DEY. EQ 

17 UNTIL. 

18 ENDIF. 

19 XI ) Y LOA. X3 STA. X2 X) LDA. 

20 XI ) Y STA, XI ) Y STA. X3 LDA. 

21 X2 X) STA. 

22 ENDIF. XI 1+ INC. 

23 REPEAT. 

0 ( 2. REVERSE... ) HEX 

1 

2 XO LDA. .A LSR. CLC. 

3 XO 1+ LDY, NE IF, 80 BB ADC. ENDIF, 

4 TAY. 

5 XI ADC. X2 STA. 0 BB LDA. 

6 XI 1 ♦ ADC. X2 1+ STA. 

7 XO LSR. CS 

8 IF. X2 INC, EQ IF. X2 1+ INC. ENDIF. 

9 ENDIF. 

10 BEGIN. DEY, OFF BB CPY, NE 

11 WHILE. 

12 XI )Y LDA. X3 STA, 

13 X2 X) LDA. XI )Y STA. 

14 X3 LDA. X2 X) STA, 

15 X2 INC. EQ IF. X2 1+ INC. ENOIF. 

16 REPEAT, 

17 XSAVE LDX. <XNEXT> JMP. 

18 

19 

20 
21 
22 
23 
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0 ( 2.QUE ) HEX 

1 

2 FRAG 2.QUE C010 STA. 

, 3 FF BB CMP. 0 BB ADC, 

4 7F BB AND, 20 BB CMP, NC 



0 FRAG 2.QUE ( — ) 

1 PURPOSE: add a character to key queue 

2 during pattern search. 

3 

4 clear keyboard buffer. 




4,806,916 
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47 



5 IF, TAY, HIMEM ,Y LOA. ENDIF, 

6 CHAR LDY, PL 

7 IF, 80 #B ORA. CHAR STA, 

8 ELSE. QIN LDY, KOUE ,Y STA, DEY. MI 

9 IF. 4 SB LOY. ENOIF. OIN STY, 

10 ENOIF. RTS. 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

65 

0 ( MATCH ) HEX 

1 

2 FRAG MATCH 

3 X3 STY, TYA. CLC. 

4 PATT ADC. TAY, PATT LDX, 

5 BEGIN. DEY. DEX. PL 

6 WHILE. 

7 PATT 1* ,X LDA. 61 SB CMP. CS 

8 IF, 78 SB CMP. CS 

9 IF, XO )Y CMP. NE 

10 IF, X3 LDY. RTS. ENDIF. 

11 ELSE. XO )Y EOR. ODF SB AND. NE 

12 IF. X3 LDY. RTS. ENDIF. 

13 ENDIF, 

14 ELSE. XO )Y CMP. NE 

15 IF. X3 LOY. RTS. ENOIF. 

16 ENDIF. 

17 REPEAT. 

18 PLA. PLA. XSAVE LDX. 

19 CLC, X3 LDA. XO ADC. 0 SP> STA, 

20 0 SB LDA. XO 1+ ADC. 1 SP> STA. 

21 <XNEXT> JMP, 

22 
23 
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0 ( 2.SEEK> ) HEX 

1 

2 ( LEFTSIDE RIGHTSIDE -- ADDR | 0 ) 

% 3 FRAG 2.SEEK> 

4 SEC. 

5 2 SP) LDA. XO STA, 0 SP) SBC. X5 STA. 

6 3 SP) LOA. XO 1* STA. 1 SP) SBC. 

7 X5 !♦ STA. I NX. INX. 0 SB LDA. 

8 0 SP) STA. 1 SP) STA. CS 

9 IF. <XNEXT> JMP. ENDIF. 

10 

11 XSAVE STX, SEC. 

12 0 SB LDA, X5 SBC. X5 STA. 

13 0 SB LDA. X5 1+ SBC. XS 1+ STA. 

14 

15 PATT 1+ LDA. ODF SB AND. XI STA, 



5 decode key. 

6 If a regular character then add 

7 to key queue. 

8 
9 

10 NOTE: A-reg holds COOO value Before 

11 calling this routine. 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG MATCH (0—01 addr ) 

1 PURPOSE: compare pattern at PATT to text 

2 at XO*Y . 

3 

4 input: 

5 XO address of text 

6 Y offset beyond XO X3 

7 PATT length of pattern X 

8 PATT+1 pattern (X chars) 

9 

10 store pattern length ♦ offset in Y 

11 store pattern length in X 

12 for each character in pattern 

13 get the character from PATT 

14 if it is lower case (61 thru 7A) 

15 ignore case 

16 if it doesn't match restore Y-reg. 

17 else: if it doesn't match exactly: 

18 restore Y register 

19 if all characters match: 

20 discard return address (to exit from 

21 2.SEEK> or 2.SEEK<). 

22 restore X register 

23 add offset to address, place on stack 



0 FRAG 2.SEEK> 

1 ( leftside rightside — addr | 0 ) 

2 PURPOSE: search for pattern among taxt 

3 characters from leftside to rightside. 

4 

5 store leftside in XO 

6 store negative of length of text to be 

7 searched in XS 

8 store default 0 on stack 

9 return on negative length 

10 save X register 

11 negate value in X5 

12 store first two characters from PATT 

13 in XI and X2, ignoring case 

14 

15 NOTE1 : 2 . SEEK> is exitted when 2. MATCH 
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16 PATT 2+ LDA, ODF S3 AND. X2 STA. 

17 

18 

19 

20 
21 
22 
23 
67 

0 ( 2 . SEEK> ... ) HEX 

1 

2 BEGIN. X5 LDA. 90 #8 CMP. 

3 X5 1* LDA. 0 BB SBC. CS 

4 WHILE. PATT LDY. OEY, EQ 

5 IF. BEGIN. XO }Y LDA. ODF BB AND, 

6 XI CMP. EQ IF, \ MATCH JSR. ENDIF, 

7 I NY. MI UNTIL, 

8 ELSE, 1 ttB LDY. 

9 BEGIN. XO )Y LDA, ODF B8 AND. X2 CMP. 

10 EQ IF. DEY. XO )Y LDA. ODF BB AND. 

11 XI CMP. EQ IF. \ MATCH JSR. ENDIF, 

12 INY, XO )Y LDA. ODF BB AND. ENDIF, 

13 INY. XI CMP, EQ 

14 IF, XO ) Y LDA. ODF BB AND, X2 CMP. 

15 EQ IF, DEY. \ MATCH JSR. INY. ENDIF. 

16 ENDIF, INY. MI UNTIL. 

17 ENDIF, CLC. 

18 COOO LDA. MI IF. \ 2.QUE JSR. ENOIF, 

19 XO LDA. 80 BB ADC. XO STA. CS 

20 IF, XO 1+ INC. ENDIF. SEC, 

21 XS LDA. 80 BB S8C. X5 STA. NC 

22 IF. XS 1+ DEC. ENDIF, 

23 REPEAT, 



50 

16 discards the return address of 2-SEEK> 

17 or if no match is found. 

18 

19 

20 
21 
22 
23 

0 

1 while there are more than 90 characters 

2 to be searched 

3 for a pattern Length of one 

4 compare with 80 text characters 

5 ignoring case 

6 for each match: call MATCH 

7 for a pattern Length greater than one 

8 for the first 80 text characters 

9 incrementing two at a time 

10 compare first two pattern characters 

1 1 ignoring case 

12 for each matched pair: caLL MATCH 

13 check for key press, caLL .QUE if need 

14 to add character to key queue after 

15 every 80 characters searched. 

16 increment address of text to be 

17 searched by 80 

18 decrement Length to be searched by 80 

19 

20 
21 
22 
23 
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0 ( 2.SEEK> ... ) HEX 

1 

2 0 BB LDY, 

3 BEGIN. 

4 XO )Y LDA. ODF BB AND. XI CMP, EQ 

5 IF, \ MATCH JSR. ENDIF, 

6 INY, X5 CPY , EQ 

7 UNTIL. 

8 XSAVE LDX, <XNEXT> JMP, 

9 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 

1 for the Last hunk of text 

2 for each character match ignoring 

3 case: caLL MATCH 

4 match faiLed 

5 restore X register 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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69 

0 ( 2. SEEK< ) HEX 

1 

2 ( LEFTSIDE RIGHTSIDE ADDR OR 0 ) 

3 FRAG 2 . SEEK< 

4 SEC, 

5 0 SP) LDA. XO STA. 2 SP) SBC, X5 STA. 

6 1 SP) LDA. XO 1+ STA. 3 SP) SBC. 

7 X5 1+ STA. 

8 INX, I NX. 0 #B LDY. 0 SP) STY. 

9 1 SP) STY. NC 

10 IF. <XNEXT> JMP. ENDIF. 

11 XS ORA. EQ IF. <XNEXT> JMP. ENDIF, 

12 XSAVE STX, 

13 

14 PATT 1+ LDA. ODF #B ANO. XI STA. 

15 PATT 2+ LDA, ODF KB AND, X2 STA. 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( 2.SEEK< ... ) HEX 

1 

2 BEGIN, X5 LDA. 90 #B CMP. 

3 X5 1+ LDA. 0 8B SBC. CS 

4 WHILE. XO LDA, 80 #B SBC, XO STA. NC 

5 IF. XO 1+ DEC, SEC. ENDIF, 

6 X5 LDA. 80 8B SBC, X5 STA. NC 

7 IF, XS 1+ OEC. ENDIF. 

8 7F #B LDY, PATT LDX. DEX. EQ 

9 IF, 

10 BEGIN, XO )Y LDA, ODF #8 AND. 

11 XI CMP. EQ IF. \ MATCH JSR. ENDIF. 

12 DEY, MI UNTIL. 

13 ELSE. BEGIN. XO )Y LDA. ODF #B ANO. 

14 XI CMP. EQ IF, INY, XO )Y LDA. 

15 ODF #8 AND. DEY, X2 CMP, EQ 

16 IF. \ MATCH JSR. ENDIF. XO )Y LDA. 

17 ODF #B AND. ENDIF. DEY. X2 CMP. EQ 

18 IF. XO )Y LDA. ODF #B AND, XI CMP. 

19 EQ IF. \ MATCH JSR, ENDIF. 

20 ENDIF, DEY. MI UNTIL. 

21 ENDIF. 

22 COOO LDA. MI IF. \ 2.QUE JSR. ENDIF. 

23 REPEAT. 

71 

0 ( 2.SEEK< ... ) HEX 

1 

2 XO LDA. X5 SBC, XO STA. NC 

3 IF. XO 1* DEC. ENDIF. X5 LDY, 

4 

5 BEGIN , 

6 XO ) Y LDA. ODF 8B AND, XI CMP. EQ 

7 IF, \ MATCH JSR. ENDIF, 

8 DEY, EQ 

9 UNTIL, 



0 FRAG 2.SEEK< 

1 ( Leftside rightside — addr | 0 ) 

2 PURPOSE: search for pattern among text 

3 characters from rightside to Leftside 

4 

5 store rightside in XO 

6 store Length of text to be searched 

7 in X5 

8 store default 0 on stack 

9 return on negative or zero Length 

10 save X register 

11 store first two characters from PATT 

12 in XI and X2, ignoring case 

13 

14 

15 N0TE1 : 2 . SEEK< is exitted when 2. MATCH 

16 discards the return address of 2.SEEK< 

17 or if no match is found. 

18 
IS 
20 
21 
22 
23 



0 

1 whiLe there are more than 90 

2 characters to be searched 

3 decrement address of text to be 

4 searched by 80 

5 decrement Length to be searched by 80 

6 for a pattern Length of one 

7 compare with 80 text characters 

8 ignoring case 

9 for each match: caLL MATCH 

10 for a pattern Length greater than one 

11 for the first 80 text characters 

12 decrementing two at a time 

13 compare first two pattern characters 

14 ignoring case 

15 for each matched pair: caLL MATCH 

16 check for key press and add characters 

17 to key queue as necessary after 

18 searching every 80 characters. 

19 

20 
21 
22 
23 

0 

1 for Less than 90 characters to be 

2 searched 

3 for each character match, ignoring 

4 case: caLL MATCH 

5 match faiLed 

6 restore X register 

7 

8 
9 
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10 10 

11 XSAVE LDX, <XNEXT> JMP, 11 

12 12 

13 13 

14 14 

15 • 15 

16 16 

17 17 

18 18 

19 19 

20 20 

21 21 

22 22 

23 23 



scr # 72 

0 ( 2. ADJUST ) HEX 

1 FRAG 2. ADJUST 

2 0 *B LDY. Y1 -STY. Y2 STY, 

3 WR LDA. EOS CMP. 

4 WR 1+ LDA, EOS 1+ SBC. 

5 WC LDA. YO STA. CS 

6 IF, <XNEXT> JMP. ENDIF. 

7 WR ADC, XI STA. TYA. 

8 WR 1+ ADC. XI 1+ STA. ( X1-LINE END ) 

9 BOS LDA. XI CMP. 

10 BOS 1+ LDA, XI 1+ SBC. CS 

11 IF, ( BOS>-LINE END ) 

12 XI LDA. EBOT SBC. XO STA. 

13 XI 1+ LDA. EBOT 1* SBC, NC 

14 IF. <XNEXT> JMP. ENDIF, 

15 XI LDA. BEOT CMP. 

16 XI 1+ LDA. BEOT 1* SBC, CS 

17 IF. <XNEXT> JMP. ENDIF. SEC. 

18 BOS LDA. BEOT SBC. X2 STA. 

19 BOS 1+ LDA. BEOT 1* SBC. X2 1+ STA. 

20 X2 LDA, XO SBC. 

21 X2 1+ LDA, 0 #B SBC. CS 

22 IF. <XNEXT> JMP. ENDIF. 

23 ENDIF. 

73 

0 ( 2. ADJUST ... ) HEX 

1 

2 BOS LOA. X2 STA. 

3 BOS 1* LDA. X2 1+ STA, 

4 EOS- LDA. X3 STA. 

5 EOS 1* LDA. X3 1+ STA, 

6 BEOT LDA, XI CMP. 

7 BEOT 1+ LDA, XI 1+ SBC, CS 

8 IF, X2 LDA. BEOT CMP. 

9 X2 1* LDA. BEOT 1+ SBC. CS 

10 IF, X2 LDA. GAP SBC. X2 STA. 

11 X2 1+ LDA, GAP 1+ SBC. X2 1* STA. 

12 ENDIF. 

13 X3 LDA. BEOT CMP, 

14 X3 1+ LDA. BEOT 1+ SBC. CS 

15 IF. X3 LDA. GAP SBC, X3 STA'. 

16 X3 1+ LDA. GAP 1+ SBC. X3 1* STA. 

17 ENDIF, 

18 ENDIF, 

19 



0 FRAG 2. ADJUST 

1 PURPOSE: calculates offsets to normal 

2 and inverse fields during display 

3 of a line. 

4 

5 clear Y-reg. Y1 and Y2 . 

6 subtract EOS from WR (setting carry). 

7 store wrap count in YO. 

8 if wrap address >■ to EOS then exit. 

9 otherwise add wrap count to wrap address 

10 and store answer in XI (line end). 

11 if BOS >- line end (XI) and 

12 if EBOT > line end (XI) then exit 

13 else store line end (XI) - EBOT in XO. 

14 otherwise (BOS still >- line end and) 

15 if lino end (XI) >- BEOT then exit. 

16 otherwise store BOS - BEOT in X2. 

17 if (BOS-BEOT) >- (line end-EBOT) 

18 then exit. 

19 

20 
21 
22 
23 

0 

1 otherwise store BOS in X2 and EOS 

2 in X3. 

3 if BEOT >- line end (XI ) and 

4 if BOS (X2) >- BEOT then store BOS - 

5 GAP in X2. 

6 if EOS (X3) >- BEOT then store EOS - 

7 GAP in X3. 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
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20 


20 


21 


21 


22 


22 


23 


23 



»cr B 74 

0 ( 2. ADJUST ... ) HEX 

1 

2 WR LDA, X2 CMP. ( WRAP>-BOS ) 

3 WR 1* LDA. X2 1* SBC. CS 

4 IF. X3 LDA. XI CMP. ( EOS>-ENDLINE ) 

5 X3 )♦ LOA. XI 1+ SBC. CS 

6 IF. YO LDA. Y1 STA. 

7 ELSE. SEC. X3 LOA. WR SBC. Y1 STA. 

8 SEC. XI LDA, X3 SBC, Y2 STA, 

9 ENDIF. YO STY. 

10 ELSE. SEC. ( WRAP<BOS ) 

11 X2 LDA. WR SBC. YO STA. 

12 X3 LDA. XI CMP, ( EOS>-ENDLINE ) 

13 X3 1+ LOA. XI 1+ SBC. CS 

14 IF, XI LDA. X2 SBC. Y1 STA. 

15 ELSE. SEC. 

16 X3 LDA, X2 SBC. Y1 STA, SEC. 

17 XI LOA. X3 SBC. Y2 STA. 

18 ENDIF. 

19 ENDIF. 

20 <XNEXT> JMP, 

21 
22 
23 

75 

0 ( 2.T0BUFF ) HEX 

1 

2 FRAG 2.T0BUFF 

3 XSAVE STX. 

4 50 BB LDY. WC CPY. NE 

5 IF, AO BB LDA. 

6 BEGIN. DEY. CURR .Y STA, WC CPY. EQ 

7 UNTIL, 

8 ENDIF. DEY. 

9 Y2 LDX, NE 

10 IF. WR )Y LDA, ID BB CMP. EQ 

11 IF, AO BB LDA. CURR .Y STA. DEY. DEX. 

12 ENDIF. NE 

13 IF. 

14 BEGIN. WR )Y LDA. 80 BB ORA. 

15 CURR , Y STA. DEY. DEX. EQ 

16 UNTIL. 

17 ENOIF. ENDIF. 

18 

19 

20 
21 
22 
23 



0 

1 if wrap address >■ BOS and 

2 if EOS (X3) >- line end (XI) 

3 then store YO in Y1 

4 else store EOS (XI ) - wrap address 

5 in Y1. Y2. 

6 store Y-reg in YO. 

7 else (WRAP<BOS) 

8 store BOS (X2) - wrap address in YO, 

9 if EOS >- line end then 

10 store Y1 with line end (XI) - BOS (X2) 

11 exit 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG 2.T0BUFF 

1 PURPOSE: convert/move text to display 

2 buffer highlighting selected text. 

3 CAPS • 0 thru IF 

4 cr - 7F 

5 normal text with high bit on 

6 cr ■ AO 

7 

8 input: 

9 WC count of characters from text 

10 WR address of text 

11 Y2 count of trailing blanks 

12 Y1 count of selected text 

13 PRINT? flag true if printing 

14 false if displaying 

15 YO Count of leading normal text 

16 

17 output: 

18 CURR display buffer holds converted 

19 text 

20 
21 
22 
23 



scr 8 76 

0 ( 2.T0BUFF ... ) HEX 0 

1 1 

2 Y1 LDX. NE • 2 

3 IF, WR ) Y LDA. 10 BB CMP. EQ 3 
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4 


IF. 7F 8B LDA, CURR ,Y STA. 


DEY. DEX. 


4 


5 


EN0IF. NE 




5 


6 


IF. 




6 


7 


BEGIN, PRINT? LDA. EQ 




7 


8 


IF. WR ) Y LDA. 40 8B CMP. 


CS 


8 


9 


IF, 60 8B CMP. NC 




9 


10 


IF, IF SB AND. ENDIF, 




10 


1 1 


ENDIF. 




11 


1 2 


ELSE, WR ) Y LDA. 




12 


13 


ENDIF. CURR ,Y STA. 




13 


14 


OEY. DEX, EQ 




14 


IS 


UNTIL, 




IS 


16 ENDIF. ENDIF, 




16 


17 






17 


18 






18 


19 






19 


20 






20 


21 






21 


22 






22 


23 






23 


77 








0 


( 2.T0BUFF ... ) HEX 




0 


1 






1 


2 


YO LDX, NE 




2 


3 


IF, WR )Y LDA, ID #8 CMP, EQ 




3 


4 


IF. AO 8B LDA. CURR .Y STA. 


OEY, DEX. 


4 


5 


ENDIF, NE 




5 


6 


IF, 




6 


7 


BEGIN, WR ) Y LDA. 80 8B ORA. 


7 


8 


CURR , Y STA, DEY, MI 




8 


9 


UNTIL. 




9 


10 


ENDIF. ENDIF. 




10 


11 


XSAVE LDX. <XNEXT> JMP. 




11 


12 






12 


13 






13 


14 






14 


15 






15 


16 






16 


17 






17 


18 






18 


19 






19 


20 






20 


21 






21 


22 






22 


23 






23 



scr 8 


78 






0 


( 2. PRESET ) HEX 


0 


1 






1 


2 


FRAG I 


l. PRESET ' 


2 


3 


OLIN 


LDY, WND2 , Y LDA. EQ 


3 


4 


IF. DEY. ( 1ST LINE ON PAGE) ENDIF, 


4 


5 


DEY. 


MI IF. 0 8B LDY. ENDIF. 


5 


6 


CLIN 


STY. CLC, 


6 


7 


CLIN 


LDA, TOP ADC, LCTR STA. 


7 


8 


0 88 


LDA. TOP 1+ ADC, LCTR 1+ STA, 


8 


9 


WNDO 


, Y LDA. WR STA, 


9 


10 


WND1 


,Y LDA. WR 1+ STA. 


10 


11 


WND2 


, Y LDA, LCT STA. 


11 


12 


WND3 


,Y LDA. PCT STA. 


12 


13 


EBOT 


LDA. XO STA, 


13 


14 


EBOT 


1+ LDA, XO 1+ STA. 


14 



2. PRESET 

PURPOSE: Decides what Tine to refresh, 
gets variables from window arrays, 
moves 82 bytes at BEOT to EBOT to wrap 

input: OLIN WND0-3 

output: CLIN LCTR WR LCT PCT GAP 

OLIN is Tinett of the Last event. 

WND2 is page relative line count. 

If the old line is at the top of a pagi 
wrap beginning with the last line in 
the preceding page, 

else wrap beginning with the line abovi 
ie: 
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15 


8EOT LDA, XI STA. 


15 


CLIN - OLIN - 


1 (not first line) 


16 


8E0T 1+ LDA. XI 1+ STA, 51 SB LDY. 


16 


CLIN - OLIN - 


2 (first line on page) 


17 


BEGIN. XI )Y LDA. X0 >Y STA. DEY. MI 


17 


CLIN » 0 (first Line in text) 


18 


UNTIL. SEC, 


18 


LCTR - TOP ♦ 


CLIN 


19 


BEOT LDA, EBOT SBC. GAP STA. 


19 


WR - CLINth 


element in WNDO and WND1 


20 


BEOT 1+ LDA, EBOT 1+ SBC. GAP 1+ STA. 


20 


LCT - " 


WND2 


21 


<XNEXT> JMP. 


21 


PCT - " 


WND3 


22 




22 


Move 82 bytes 


at BEOT to EBOT. 


23 




23 


GAP - BEOT - 


EBOT 


79 










0 


( 2.40COL 2. MON 2.ABOOT ) HEX 


0 


FRAG 2.40C0L 




1 




1 


PURPOSE: set 40 column display. 


2 


FRAG 2.40C0L 


2 






3 


C051 LDA. COOE STA, 


3 


FRAG 2.AB00T 




4 


COS6 LDA. COOC STA. 


4 


PURPOSE: boot 


apple disk. 


5 


C054 LDA. COOO STA, 


5 






6 


FO SB LDA. 36 STA, 


6 


FRAG 2. MON 




7 


FD #8 LDA. 37 STA. 


7 


PURPOSE: go to 


monitor from SWYFTCARD. 


8 


FF SB LDA. 32 STA. 


8 






9 


0 SB LDA. 24 STA, 25 STA. RTS. 


9 






10 




10 






11 


FRAG 2.AB00T \ 2.40C0L JSR. 


11 






12 


0 SB LDA, 3F4 STA, 39E STA, 3E0 JMP. 


12 






13 




13 






14 


( copy text 8 variables to main ram ) 


14 






15 


FRAG 2. MON \ 2.40COL JSR. FFF8-LDA, 


15 






16 


EO IF, 3C STA. 3D STA. 42 STA, 43 STA. 


16 






17 


EBOT LDA. 3E STA. 


17 






18 


EBOT 1+ LDA. 3F STA, CLC. C31 1 JSR, 


18 






19 


BEOT LDA. 3C STA, 42 STA. 


19 






20 


BEOT 1* LDA, 3D STA. 43 STA. 


20 






21 


FF LDA. 3E STA. 


21 






22 


BF SB LDA, 3F STA, CLC. C31 1 JSR. 


22 






23 


ENDIF, <MON> JMP, 


23 






scr S 


l 80 








0 


( 2.<READ> ) HEX 


0 


2 . <READ> ( -- 


> 


1 




1 


PURPOSE: read 


a track (located by SEEK) 


2 


FRAG 2 . <READ> - 


2 


to ram (B3F0 


through BFFF) 


3 


XSAVE STX, FO SB LDY. 


3 


including a 


16 byte preface 


' 4 


0 SB LDA. XO STA. B3 SB LDX. 


4 






5 


XO 1+ STX. CO 88 LDA, XS STA, CLV. 


5 






6 


SEI . 


6 






7 


BEGIN. 


7 






8 


BEGIN. COEC LDA. MI UNTIL. 


8 






9 


BEGIN. SWAP 


9 






10 


BEGIN. SWAP ED SB CMP, EQ UNTIL. 


10 






11 


BEGIN. COEC LDA. MI UNTIL, 


11 






12 


DE SB CMP. EQ 


12 






13 


UNTIL. BEGIN. COEC LDA. MI UNTIL. 


13 






14 


OA SB CMP, EQ 


14 






15 


UNTIL, 


15 




, 


16 


BEGIN. 


16 






17 


BEGIN. COEC LDA. MI UNTIL, 


17 






18 


SEC, .A ROL, X2 STA, OFF SB CPY, EQ 


18 






19 


IF, I NX, X5 CPX, -1 DP + ! ELSE. 


19 






20 


X5 HERE 3 - C! CLC. ENOIF. 


20 






21 


BEGIN. COEC LDA. MI UNTIL. 


21 






22 


X2 AND, XO ) Y STA. INY, XO 1+ STX, CS 


22 






23 


UNTIL. XSAVE LDX. CLI . <XNEXT> JMP. 


23 
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0 ( *100US PHSW PHSW2 ONDL OFFOL ) HEX 

1 

2 FRAG *100US 

3 BEGIN. 11 BB LDX. 

4 BEGIN. DEX, EQ UNTIL, 

5 NOP, NOP. NOP. NOP. SEC. 1 SB SBC. EQ 

6 UNTIL. RTS. 

7 

8 FRAG PHSW TRACK LDA. 

9 FRAG PHSW2 3 BB ANO. .A ROL. TAX. 

10 COEO .X LDA. RTS. 

11 

12 FRAG ONDL 

13 3001 . 2428 . 1 E20 . 1C10 . 1C1C . 

14 1C1C . 

15 

16 FRAG OFFDL 

17 2C70 . 2226 , 1 El F . 1010 . 1C1C . 

18 1C1C , 

19 

20 FRAG DL12 RTS. 

21 

22 FRAG WB30 NOP. PHA. PLA. COED ,X STA. 

23 COEC .X CMP, RTS. 



scr B 82 

0 ( 2.<WRITE> ) HEX 

1 

2 FRAG 2.<WRITE> XSAVE STX, OD BB LDA. 

3 XS STA. B3 BB LDY, XO 1+ STY, CLV, 

4 0 BB LDX. XO STX. 

5 OFO BB LDY. TYA, PHA, 

6 SEI. 

7 COED .X LDA, COEE .X LDA. 0 BB LDY. 

8 OFF BB LDA. COEF ,X STA, COEC .X CMP. 

9 PHA. PLA, 

10 BEGIN. \ 0L12 JSR. \ DL12 JSR. 

11 COED ,X STA, COEC ,X CMP. NOP. DEY. EQ 

12 UNTIL. ED BB LDA. \ WB30 JSR, 

13 DE BB LDA. \ WB30 JSR. \ DL12 JSR, 

14 XO LDA, 

15 DA BB LDA. COED ,X STA. COEC ,X CMP. 

16 PLA, TAY. 

17 

18 

19 

20 
21 
22 
23 

83 

0 ( 2 . <WRITE> ... > HEX 

1 

2 BEGIN. XO LDA. XO )Y LDA. PHA. .A LSR. 

3 AA 88 ORA, NOP. COED .X STA. 

4 COEC ,X CMP, INY, EQ 

5 IF. XO 1+ INC, X5 OEC, 

6 -1 DP +! ELSE, 

7 XS HERE 3 - C! \ DL12 JSR, 

8 ENDIF. 

9 PLA, AA BB ORA. COED .X STA, 



0 FRAG *100US ( A-reg 

1 PURPOSE: delay by value in A-reg times 

2 lOOus. 

3 

4 FRAG PHSW TRACK LDA. 

5 LABEL PHSW2 3 BB AND. .A ROL, TAX. 

6 COEO ,X LDA. RTS. 

7 

8 FRAG ONDL 

9 3001 , 2428 , 1E20 . 1C1D , 1C1C , 

10 1C1C . 

11 

12 FRAG OFFDL 

13 2C70 . 2226 . 1 El F , 1C1D , 1C1C , 

14 1C1C , 

15 

16 FRAG DL1 2 ( — ) 

17 delay 12 machine cycles 

18 

19 FRAG WB30 ( -- ) 

20 write a byte in 30 machine cycles 

21 
22 
23 



0 FRAG 2.<WRITE> ( — ) 

1 write a track (32 cycles per byte) 

2 from ram (B3F0 through BFFF) 

3 including: 

4 256 self-sync (40 cycle) bytes 

5 an EDDE header (ED DE DA) 

6 a 16 byte preface 

7 a 3K track image 

8 

9 soft switches: 

10 COED. COEC write a byte 

11 COED, COEE sense write protect 

12 COEF set mode to write 

13 

14 start code at a page boundary 

15 

16 

17 

18 

19 

20 
21 
22 
23 



1 

2 

3 

4 

5 

6 

7 

8 
9 
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10 


COEC ,X CMP. X5 LDA. EQ 


10 


11 


UNTIL. 


11 


12 


NOP, NOP. \ DL1 2 JSR, 


12 


13 


OA 4B LDA. COED ,X STA. COEC .X CMP. 


13 


14 


NOP. NOP, NOP, 


14 


15 


DE 4B LDA. \ WB30 JSR. 


15 


16 


FF 4B LDA. \ WB30 JSR. XO LDA. NOP, 


16 


17 


\ DL1 2 JSR, COEE ,X LDA. 


17 


18 


XSAVE LDX. 


18 


19 


CLI. <XNEXT> JMP, 


19 


20 




20 


21 


AO 7FITS 


21 


22 




22 


23 




23 



sop # 84 

0 ( 2 . <SEEK> ) HEX 

1 

2 FRAG 2 . <SEEK> "0 SP) LDA. X2 STA, 

3 INX, I NX, XSAVE STX. TRACK CMP, EQ 

4 IF, <XNEXT> JMP , ENDIF, 

5 0 HB LDA. XO STA, 

6 SEI , 

7 BEGIN, TRACK LDA. XI STA. SEC, 

8 X2 SBC. NE 

9 WHILE. NC 

10 IF. OFF 48 EOR. TRACK INC, 

11 ELSE. OFE 4B ADC. TRACK DEC. 

12 ENDIF. 

13 XO CMP, CS IF. XO LDA. ENDIF, 

14 OC 4B CMP, NC IF. TAY, ENDIF. SEC. 

15 \ PHSW JSR. NOP. \ ONOL ,Y LDA, NOP, 

16 \ *100US JSR. XI LDA. CLC, 

17 \ PHSW2 JSR. \ OFFDL ,Y LDA, 

18 \ *100US JSR. XO INC. EQ 

19 UNTIL. HERE OVER - 1- SWAP C! 

20 \ *100US JSR, CLC. \ PHSW JSR. 

21 CLI, 

22 XSAVE LDX, <XNEXT> JMP. 

23 



0 FRAG 2.<SEEK> ( t — ) 

1 PURPOSE: seek to track t. 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



85 



0 

< 


( 2.? EDDE ) HEX 


0 

1 

2 


1 

2 


FRAG 2.7EDDE 0 4B LDY, OEX. DEX, 


3 


XSAVE STX. 0 SP) STY. 1 SP) STY. 


3 


4 


20 4B LDX. SEI. 


4 


5 


BEGIN. 


5 


6 


BEGIN. 


6 


7 


BEGIN. DEY. EQ 


7 


8 


IF, DEX. EQ 


8 


9 


IF. XSAVE LDX. CLI, <XNEXT> JMP. 


9 


10 


ENDIF. 


10 


11 


ENDIF. 


11 


12 


BEGIN, COEC LDA. MI UNTIL. 


12 


13 


OED 48 CMP, EQ UNTIL. 


13 


14 


BEGIN, COEC LDA. MI UNTIL. 


14 


15 


DE 4B CMP. EO UNTIL. 


15 


16 


BEGIN. COEC LDA, MI UNTIL. 


16 


17 


DA 4B CMP. EQ UNTIL. 


17 


18 


XSAVE LDX. 0 SP) INC, 


18 


19 


CLI. <XNEXT> JMP, 


19 



FRAG 2.7EDDE ( — flag > 

PURPOSE: checks disk for EDDE header, 
true means the disk was written by 
EDDE, which means that on that track 
can be found the bytes: ED DE DA. 
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scr » 86 

0 ( 2.7APPLE ) HEX 

1 

2 FRAG 2.7APPLE- DEX. DEX. XSAVE STX. 

3 0 SB LDY, 0 SP) STY. 1 SP) STY. 

4 7C <8 LOX, 20 *8 LDA. YO STA, 

5 SEX. 

6 BEGIN. OEY. EG 

7 IF. YO OEC. EO 

8 IF, XSAVE LDX, CLI. <XNEXT> JMP, 

9 ENDIF, 



FRAG 2.7APPLE ( -- flag ) 

PURPOSE: check disk for Apple header, 
true means initialized by Apple DOS 
(see 7ED0E) . 



10 


ENDIF. 


10 


11 


BEGIN. C070 .X LDA. MI UNTIL. 


11 


12 


BEGIN. SWAP 


12 


13 


BEGIN. SWAP 05 SB CMP. EQ UNTIL, 


13 


14 


BEGIN. C070 .X LDA. MI UNTIL. 


14 


IS 


AA SB CMP, EO UNTIL, 


IS 


16 


BEGIN. C070 .X LDA. MI UNTIL. 


16 


17 


96 SB CMP. EQ UNTIL, 


17 


18 


XSAVE LDX. 0 SP) INC. 


18 


19 


CLI. <XNEXT> JMP. 


19 


20 




20 


21 




21 


22 




22 


23 




23 


17 






0 


< 2.CMOVE2 from bank2 to B400 ) 


0 


1 




1 


2 


FRAG 2 . CMOVE 2 


2 


3 


0 SB LDA. XO STA. XI STA. TAY, 


3 


4 


1 SP) LDA. XO 1* STA, 


4 


5 


84 SB LDA. XI 1+ STA. 


5 


6 


I NX, I NX , XSAVE STX. OC SB LDX. 


6 


7 


BEGIN. 


7 


8 


BEGIN. XO )Y LDA, XI )Y STA. INY. EO 


8 


9 


UNTIL. XO 1* INC. XI 1* INC. DEX. EQ 


9 


10 


UNTIL. 


10 


11 


XSAVE LDX. <XNEXT> JMP. 


11 


12 




12 


13 


FRAG 2. CHECKSUM ( -- 8 ) 


13 


14 


FO SB LDY, 83 SB LDA. XO 1* STA, 


14 


15 


0 SB LDA. XO STA. 


15 


16 


PHA. BEGIN. PLA. 


16 


17 


BEGIN. XO )Y EOR. INY. EQ UNTIL, 


17 


18 


PHA, XO 1* INC. XO 1+ LDA. 


18 


19 


CO SB CMP. EQ UNTIL. 


19 


20 


OEX. OEX, PLA. 0 SP) STA. 


20 


21 


0 SB LDA, 1 SP) STA. <XNEXT> JMP. 


21 


22 




22 


23 




23 


cr 1 


( 88 




0 


( 2 . 7UP0ATE ) HEX 


0 



FRAG 2.CMOVE2 { a(hi) — ) cmove from 
bank to 8400 



2. CHECKSUM ( — B ) 

calculate the EXCLUSIVE-OR checksum 
for the ram buffer (B3F0 through 3FFF) 

NOTE: if the checksum byte is zero, 
and the chacsum is placed there, 
the new checksum will be zero 



2 FRAG 2 . 7UP0ATE 0 SP) LDY. 



1 PURPOSE: update line in window array. 

2 true means changed. 




4 , 806,916 



68 



67 

3 WR LOA. WNDO .Y CMP, EQ 
' 4 IF. WR 1+ LDA. WND1 ,Y CMP, EQ 

5 IF. LCT LDA. WND2 ,Y CMP, EQ 

6 IF, PCT LDA, WND3 ,Y CMP, EQ 

7 IF. 0 #0 LDA. 0 SP) STA, 1 SP) STA. 

8 <XNEXT> JMP, 

9 ENDIF, ENDIF, ENDIF, ENDIF. 

10 WR LDA. WNDO ,Y STA. 

11 WR 1+ LDA. WND1 ,Y STA. 

12 LCT LDA. WND2 ,Y STA. 

13 PCT LDA. WND3 ,Y STA. 

14 OFF «B LDA. 0 SP) STA. 1 SP) STA. 

15 <XNEXT> JMP. 

16 

17 

18 

19 

20 
21 
22 
23 

89 

0 C 2.WRITE0 image ) HEX 

1 

2 FRAG 2.WRITE0 XSAVE STX. 

3 SEI , 60 #B LDX. C08D .X LDA. 

4 COSE ,X LDA. 0 #B LDA. 

5 TAY, XO STA, XI STA. C #B LDA. X2 STA. 

6 FF #8 LDA. C08F ,X STA. C08C .X CMP. 

7 DE #B LOA. XO 1+ STA. XO 1* STA. 



8 DF #8 LDA, XI 1+ STA. 

9 BEGIN, 

10 BEGIN. NOP. XO )Y LDA. PL ( 7) 

11 IF, PHA. PLA. FF #B LDA. ( 3/11) 

12 ENDIF. C08D .X STA. C08C ,X ORA. ( 9) 

13 XO LDA. XO LDA. NOP. INY. EQ ( 10) 

14 UNTIL. ( 2/3) 

16 BEGIN. XO LDA. XI )Y LDA. PL ( 8) 

16 IF. PHA. PLA, FF #B LDA, ( 3/11) 

17 ENDIF. C08D ,X STA, C08C .X ORA. ( 9) 

18 PHA, PLA, INY, EQ ( 9) 

19 UNTIL, NOP, X2 DEC, EQ ( 7/3) 

20 UNTIL. ( 2/3) 

21 C08E ,X LDA. 

22 XSAVE LDX. CLI. <XNEXT> JMP. 

23 62 7FITS 



scr # 90 

0 ( 2. NUDGE ) HEX ;S 

1 

2 FRAG 2. NUDGE • 

3 0 #B LDY, 0 SP) LDA. XO STA. 

4 1 SP) LDA, XO 1+ STA. INX, INX. 

5 BEGIN, EBOT LDA, PGSO ,Y CMP. 

6 EBOT 1+ LDA. PGS1 .Y SBC. CS 

7 IF. CLC, 

8 PGSO .Y LDA. XO ADC. PGSO ,Y STA, 

9 PGS1 . Y LDA, XO 1+ ADC. PGS1 ,Y STA. 

10 SEC, 

11 ENDIF, INY, NC 

12 UNTIL. 

13 WNDO LDA. XO ADC, WNDO STA. 



3 

4 Y-reg holds the line#. 

5 if the address of the line, the line on 

6 the page and the current page have not 

7 changed then put a 0 on the stack and 

8 exit. 

9 otherwise (the address, line or page 

10 have changed) update that element in 

11 the window array and put a -1 on the 

12 stack. 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG 2.WRITE0 

1 PURPOSE: write boot 0 track to disk. 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 
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69 



14 


WND1 LDA. XO 1+ ADC. WND1 STA. CLC 




14 


IS 


BOS LDA. XO ADC. BOS STA. 




IS 


16 


BOS 1+ LDA. XO 1* ADC. BOS 1+ STA, 


CLC. 


16 


17 


EOS LDA. XO ADC. EOS STA. 




17 


18 


EOS 1+ LDA, XO 1+ ADC. EOS 1+ STA. 


CLC. 


18 


19 


BOT LDA. XO ADC, BOT STA. 




19 


20 


BOT 1+ LDA, XO 1+ ADC, BOT 1+ STA, 


CLC. 


20 


21 


E30T LDA. XO ADC. E30T STA. 




21 


22 


EBOT 1+ LDA. XO 1+ ADC, EBOT 1+ STA, 


22 


23 


<XNEXT> JMP. 




23 



91 



0 


( 2. SERIAL# ) HEX 


0 


FRAG .SERIAL# 


1 




1 


PURPOSE: calculate a unique number. 


2 


FRAG .SERIAL# 0 #B LDY, 


2 




3 


BEGIN. DEY, NE 


3 




4 


WHILE. XO ) Y LDA. 


4 




5 


CLC. X2 ADC. X2 STA. CS 


5 




6 


IF. X2 1+ INC. ENDIF. 


6 




7 


X2 1+ LDA. .A ROL, 


7 




8 


X2 LDA. .A ROL. X2 STA. 


8 


LABEL 2. SERIAL# ( — # ) 


9 


X2 1+ LDA. .A ROL. X2 1* STA. 


9 


PURPOSE: calculate a unique number to 


to 


REPEAT. RTS, 


10 


place on a disk. 


11 




11 




12 


FRAG 2. SERIAL# ( -- # ) 


12 


start with a seed of 0 


13 


0 #3 LDA. X2 STA. X2 1* STA. 


13 


start with 100 hex bytes below cursor 


14 


EBOT LDA. EBOT 1+ LDY. 


14 


modify the seed with those bytes 


15 


XO STA. XO 1+ STY, 


IS 


end with 100 hex bytes above cursor 


16 


\ .SERIAL# JSR. 


16 


modify the seed with those bytes 


17 


XO 1+ INC. 


17 


store the result on the stack 


1 8 


\ .SERIAL# JSR, 


18 




19 


DEX, DEX, X2 LDA. 0 SP) STA, 


19 




20 


X2 1+ LDA. 1 SP) STA. 


20 




21 


<XNEXT> JMP. 


21 




22 




22 




23 




23 





scr # 92 

0 ( .DECIMATE ) HEX ( later: yO.1 -> xl-S) 

1 

2 FRAG .DECIMATE 

3 0 #B IDA, PHA. 

' 4 PCT LDA, CLC, PAGE* ADC. XI STA. 

5 PCT 1+ LDA. PAGEX 1* ADC. X2 STA. 

6 80 #B AND. NE 

7 IF, PLA. FF #B LDA. PHA, 

8 XI EOR. CLC, 1 #8 ADC, XI STA. 

9 X2 LDA, FF #B EOR. 0 #B ADC, X2 STA. 

10 ENDIF, 

11 
12 

13 

14 
.IS 
16 

17 

18 

19 

20 
21 
22 



0 FRAG .DECIMATE ( — ) 

1 PURPOSE: subroutine convert hex number 

2 in register to ascii characters 

3 in place. 

4 

5 Y high order byte XI 

6 A low X2 

7 

8 X3 ten thousands 

9 X4 thousands 

10 X5 hundreds 

11 YO tens 

12 Yl ones 

13 XI -1 is negative, 0 is positive 

14 

15 

16 

17 

18 

19 

20 
21 
22 



23 



23 




71 



4 , 806,916 



72 
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0 ( .DECIMATE . . . ) HEX 0 

1 1 

2 SEC. OFF BB LDY, 2 

3 BEGIN. INY. XI LDA. 10 BB SBC. XI STA, 3 

4 X2 LDA. 27 BB SBC, X2 STA. NC UNTIL. 4 

5 XI LDA, 10 BB ADC. XI STA. 5 

6 X2 LDA. 27 BB ADC. X2 STA. TYA. 6 

7 30 BB ORA. X3 STA, SEC. OFF «tB LDY, 7 

8 BEGIN. INY. XI LDA. E8 BB SBC. XI STA. 8 

9 X2 LDA, 03 BB SBC, X2 STA, NC UNTIL. 9 

10 XI LDA, E8 88 ADC, XI STA. 10 

11 X2 LDA. 03 BB ADC. X2 STA. TYA. 11 

12 30 BB ORA. X4 STA. SEC. OFF BB LDY. 12 

13 BEGIN. INY. XI LDA. 64 SB S8C, XI STA, 13 

14 X2 LDA, 00 BB SBC, X2 STA. NC UNTIL. 14 

15 XI LDA, 64 BB ADC. PHA, . 15 

16 TYA. 30 BB ORA. X5 STA, 16 

17 SEC. OFF BB LDY, PLA, 17 

18 BEGIN. INY, OA BB SBC. NC UNTIL. 18 

19 OA BB ADC, 30 BB ORA. Y1 STA. 19 

20 TYA. 30 BB ORA, YO STA, 20 

21 PLA, XI STA. RTS. 21 

22 22 

23 . 23 



scr 8 94 

0 ( 2 . PAGEPRINT ) HEX 

1 FRAG 2. PAGEPRINT XSAVE STX, 

2 W/2 LDA. MARGIN?! ADC. .BL ADC. X2 STA. 

3 X2 DEC . 

' 4 BEGIN, 20 SB LDX. <LEMIT2> JSR, X2 DEC, 

5 EQ UNTIL, \ .DECIMATE JSR. XI LDX. NE 

6 IF. 2D BB LDX. <LEMIT2> JSR. ENDIF. 

7 X3 LDX. 30 BB CPX, NE 

8 IF. <LEMIT2> JSR, X4 LDX. <LEMIT2> JSR, 

9 X5 LDX, <LEMIT2> JSR. 

10 YO LDX. <LEMIT2> JSR. 

11 ELSE. X4 LDX, 30 BB CPX, NE 

12 IF, <LEMIT2> JSR. 

13 X5 LDX. <LEMIT2> JSR. 

14 YO LDX. <LEMIT2> JSR. 

15 ELSE, X5 LDX, 30 BB CPX. NE 

16 IF. <LEMIT2> JSR, 

17 YO LDX, <LEMIT2> JSR. 

18 ELSE. YO LDX, 30 BB CPX. NE 

19 IF, <LEMIT2> JSR. 

20 ENOIF, ENOIF, ENDIF. ENDIF, 

21 Y1 LDX, <LEMIT2> JSR. 

22 OD BB LDX. <LEMIT2> JSR. 

23 XSAVE LDX, <XNEXT> JMP, 

95 

0 ( 2 . SHOWPAGE ) HEX 

1 

2 FRAG 2. SHOWPAGE WR LDA. EOT CMP. EQ 

3 IF, WR 1+ LDA. EOT 1+ CMP, EQ 

4 IF. ( 4F BB LDY. AO BB LDA. scroU 

5 BEGIN. CURR ,Y STA. DEY. MI problem? 

6 UNTIL. ) <XNEXT> JMP. 

7 ENDIF, ENDIF. 

8 OBD BB LDY. WC LDA. EQ 

9 IF. AD BB LDY. ENDIF. SEC. 



0 FRAG 2. PAGEPRINT < — ) 

1 PURPOSE: print number at bottom of page. 

2 

3 input: W/2 MARGIN* PCT PAGE* 

4 

5 add MARGIN* to W/2 

6 add PCT to PAGE*, all 16 bits 

7 convert to decimal ascii characters 

8 replace Apple output vector 

9 with printer driver 

10 print half a line of blanks 

11 print page number ascii characters 

12 restore output vector 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG 2. SHOWPAGE ( — ) 

1 PURPOSE: display page break symbols and 

2 page number. 

3 

4 if WRAP got to end of text. 

5 issue a line of spaces 

6 Y register holds pagebreak symbol 

7 if wrap count is zero. 

8 use implicit symbol: (ascii AD), 

9 else explicit symbol: (ascii BD) 
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10 WR LDA, BOS SBC. X2 STA. 

11 WR 1+ LDA. BOS 1+ SBC, X2 1+ STA. CS 

12 IF. WR LDA. EOS CMP, 

13 WR 1+ LDA. EOS 1+ SBC. NC 

14 IF. TYA, 80 #8 EOR. TAY, ENDIF. 

15 ENDIF. 

16 X2 LDA. X2 1+ ORA. EQ 

17 IF. WC LDA. EO IF. AD SB LDY. ENDIF. 

18 ENOIF. 

19 TYA. 4F SB LDY, CLC, 

20 BEGIN, CURR ,Y STA. DEY, MI UNTIL. 

21 80 SB AND. XO STA. 

22 
23 



74 

10 if WR is equal to or greater than BOS 

11 if WR less than EOS 

12 toggle high bit (80) of symbol 

13 (make highlignted) 

14 if WR is equal to BCS, 

15 if wrap count zero, 

16 use implicit symbol: (ascii AO) 

17 fill CURR with symbol 

18 strip high bit (80) of symbol 

19 (highlighting bit: f alse-highlight ) 

20 and store it in XO 

21 place decimal page number in center 

22 with a space on either side 

23 



scr # 96 

0 ( 2 . SHOWPAGE ... ) HEX 

1 

2 \ .DECIMATE JSR, 25 SB LDY, 

3 20 SB LDA, XO ORA. CURR ,Y STA. INY, 

4 XI LDA. NE IF. 

5 2D SB LDA. XO ORA, CURR .Y STA. INY. 

6 ENDIF, X3 LDA. 30 SB CMP. NE 

7 IF, XO ORA. CURR ,Y STA, INY, 

8 X4 LDA. XO ORA. CURR ,Y STA, INY, 

9 X5 LDA,- XO ORA. CURR ,Y. STA. INY, 

10 YO LDA, XO ORA. CURR .Y STA, INY, 

11 ELSE. X4 LDA. 30 SB CMP. NE 

12 IF, XO ORA. CURR ,Y STA. INY, 

13 X5 LDA, XO ORA, CURR ,Y STA. INY, 

14 YO LOA. XO ORA. CURR ,Y STA, INY, 

15 ELSE. X5 LDA. 30 SB CMP. NE 

16 IF, XO ORA. CURR .Y STA, INY. 

17 YO LDA. XO ORA, CURR .Y STA, INY. 

18 ELSE. YO LDA, 30 SB CMP. NE 

19 IF, XO ORA, CURR ,Y STA. INY. 

20 ENDIF. ENDIF, ENDIF. ENDIF, 

21 Y1 LDA, XO ORA. CURR ,Y STA. INY, 

22 20 SB LDA. XO ORA. CURR ,Y STA. 

23 <XNEXT> JMP, 

97 

0 ( 2.8K 2.7X ) HEX 

1 

2 FRAG 2.9K DEX. DEX, 

3 0 SB LDY, 1 SP) STY. 

4 CHAR LDA, 7F SB AND. 

5 0 SP) STA, CHAR STA. 

6 QOUT LDY. QIN CPY, NE 

7 IF. KQUE .Y LDA, DEY. MI 

8 IF. 4 SB LDY. ENDIF, QOUT STY, 

9 80 SB ORA. CHAR STA, 

10 ENOIF. <XNEXT> JMP, 

11 

12 FRAG 2.7X ( LEX OR REX? ) 

13 DEX. OEX, 0 SB LDY. 1 B8 LDA. 

14 C061 BIT. MI 

15 IF. DEY, C062 BIT. MI 

16 IF. XFLAG LDA. 3 SB ORA. ENOIF. 

17 ELSE. C062 BIT. MI 

18 IF. DEY, 2 SB LDA, ENDIF. 

19 ENDIF. 

20 XFLAG STA, 0 SP) STY. 1 SP) STY. 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG 2.9K ( -- char ) 

1 PURPOSE: process keyboard character. 

2 inputs: CHAR KQUE QIN GOUT LASTC 

3 outputs: CHAR SAVED? QOUT 

4 

5 place contents of CHAR on stack 

6 with its high bit clear 

7 compare it to the last char. LASTC 



8 


if the same 




9 


is it a control W? 




10 


if it is. set SAVED? 




11 


else, clear SAVED? 




12 


clear the high bit in 


CHAR 


13 


check if the key queue 


is empty 


14 


if it isn't 




15 


grab one character. 




16 


set its high bit 




17 


store it in CHAR 




18 


decrement queue index 


19 






20 


LABEL 2 . ?X ( -- mask | 


lex or rex' 
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21 <XNEXT> JMP. 

22 
23 



scp S 98 

0 ( 2.V ) HEX 

1 



2 


FRAG 2.V 


1 SP) 


LDA, XO STA, 


3 


0 SP) LDA, 


XO 1 + 


STA, 


4 


BASIC0 69 


+ LDA. 


XI STA, 


5 


BASIC0 6A 


+ LDA, 


XI 1+ STA, 


6 


BAS ICO 6B 


+ LDA, 


X2 STA. 


7 


BASIC0 6C 


+ LDA, 


X2 1+ STA. 


8 


0 #8 LDY. 






9 


BEGIN. XI 


)Y LDA 


,. XO CMP. EQ 


10 


IF, INY. 


XI ) Y 


LDA, XO 1+ CMP. EQ 


11 


IF. CLC. 


XI LDA, 2 SB AOC , 


12 


0 SP) STA, XI 


1+ LDA. 0 SB AOC. 


13 


1 SP) S 


TA, <XNEXT> JMP. 


14 


ENDIF. DEY. ENDIF, 


IS 


CLC, XI LDA, 7 


SB ADC. XI STA. CS 


16 


IF, XI 1+ 


INC. 


ENDIF. 


17 


CLC, XI LDA. X2 


CMP, CS 


18 


IF. XI 1 + 


LDA. 


X2 1+ CMP. ENDIF, CS 


19 


UNTIL, 0 SB LDA, 


0 SP) STA, 1 SP) STA 


20 


<XNEXT> JMP. 




21 








22 








23 









99 

0 ( 2.SM > ;S 

1 

2 ( — char | remove one character from 

3 the modem queue to the stack. If the 

4 buffer was full, RSTAT«FF. then send a 

5 control-S when it is half empty ) 

6 

7 FRAQ 2.8M DEX. DEX, MQOUT LDY. 

8 MQUE .Y LOA. 0 SP) STA, 

9 INY, MQOUT STY. 

10 RSTAT LDA, NE 

11 IF, SEC. MQOUT LOA. MQIN SBC. PL 

12 IF, 11 #8 LDY. ( send control Q ) 

13 BEGIN. C0A9 LDA, 10 #8 AND. NE 

14 UNTIL. C0A8 STY, 

15 0 SB LDA. RSTAT STA. 

16 ENDIF. ENDIF, 

17 0 SB LDA, 1 SP) STA. 

1 8 <XNEXT> JMP . 

19 

20 
21 
22 
23 



scr S 100 

0 ( 2. ENDWRAP ) HEX 

1 

2 FRAG 2 . ENDWRAP OEX, DEX, OFF #8 LDY, 

3 WR LDA, WC ADC. WR STA. CS 

' 4 IF, WR 1+ INC, ENOIF, EBOT CMP. 



21 PURPOSE: process lex/rex keys. 

22 bit 0 - C061 

23 bit 1 - C062 



0 FRAG 2.V ( char-pair -- addr | 0 ) 

1 PURPOSE: locate the BASIC variable 

2 identified by its unique character 

3 pair. 

4 

5 set each high bit. reverse byte order 

6 find area BASIC placed them in 

7 look for that byte pattern 

8 found: return address 

9 not: return 0 

10 both integers and string pointers 

11 are 7 bytes long, 

12 so skip 7 bytes for each test 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 

t 

22 

23 



0 FRAG 2. ENDWRAP ( — flag ) 

1 PURPOSE: point wrap address (WR) to the 

2 beginning of the next line. 

3 update PCT LCT LCTR CLIN. 

4 
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77 

5 WR 1+ LDA, EBOT 1+ SBC, CS 

6 IF, INY, 

7 WR LDA, BEOT CMP, 

8 WR 1+- LDA, BEOT 1+ SBC, NC 

9 IF. WR LDA. GAP ADC. WR STA, 

10 WR 1+ LDA. GAP 1* ADC. WR 1* STA. 

11 ENDIF, ENDIF. 

12 WR LDA. EOT CMP. 

13 WR 1* LDA, EOT 1+ SBC. CS 

14 IF, EOT LDA. WR STA, 

15 EOT 1+ LDA. WR 1+ STA. 

16 ENDIF. 0 SP) STY, 1 SP) STY. 

17 PAGEFLAG LDY, EQ 

18 IF, PCT INC. LCT STY. 

19 ELSE, LCT INC. 

20 ENOIF, CLIN INC, 

21 LCTR INC. EQ IF, LCTR 1+ INC. ENDIF, 

22 <XNEXT> JMP , 

23 

101 

0 ( 2.SETMODEM ) HEX 

1 

2 FRAG 2.SETMODEM 

3 0 SIB LDA. SSC? STA. SSC? 1+ STA. 

4 C205 LDA, 38 #B CMP. NE 

5 IF. <XNEXT> JMP, ENOIF. 

6 C20C LDA. 31 #B CMP. NE 

7 IF. <XNEXT> JMP. ENDIF, 

8 FF #B LDA. SSC? STA, SSC? 1* STA. 

9 0 #B LDA. C0A9 STA. 

10 SEND* LDA. COAA STA, 

11 SENDS 1+ LDA. COAB STA. 

12 0 #8 LDA, TSTAT STA. RSTAT STA. CL I. 

13 <XNEXT> JMP. 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



5 add WC to WK 

6 if WR is past EBOT set false and 

7 if WR is not past BEOT then 

8 add GAP ... 

9 sat WR that much past BEOT 

10 <ie, EBOT < WR < BEOT) 

11 if WR goes past text 

12 sat WR to end of text 

13 if PAGEFLAG is false (was set by WRAP) 

14 then: increment PCT, set LCT to zero 

15 else: increment LCT 

16 increment CLIN, LCTR 

17 

18 

19 N0TE1 : WRAP sets PAGEFLAG 

20 true-PAGEFLAG»no page break generated. 

21 NOTE 2: WC set by WRAP. SHCWPAGE. 

22 
23 

0 FRAG 2 . SETMODEM ( — ) 

1 PURPOSE: initialize 6551 on super serial 

2 card for use with modem. 

3 

4 if a super serial card isn't in slot 2 

5 (C205 - 38 and C20C =■ 31 ) then set 

6 SSC? to 0 and exit. 

7 else, set SSC? to -1. 

8 clear transmit (C0A9) . 

9 place the two bytes in SEX (BASIC) 

10 in status (COAA) and control (COAB). 

11 clear RSTAT and TSTAT. 

12 enable interrupts. 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



scr # 102 

0 ( 2 . HAROPAGE 2 . SOFTPAGE ) HEX 

1 

2 FRAG 2 . HARDPAGE ( addr — ) 

3 PAGE# LDY. INY. 

’ 4 0 SP) LDA, PGSO ,Y STA, 

5 1 SP) LDA. PGS1 ,Y STA. 

6 I NX. I NX. <XNEXT> JMP. 

7 

8 FRAG 2. SOFTPAGE ( flag -- ) 

9 0 SP) LDA. NE 

10 IF, L0CAL2 LDA. 1 #B CMP. EQ 

11 IF, 

12 YPOS LDY. WND3 2 + ,Y LDA, TAY, CLC. 

13 PGSO , Y LDA, GAP ADC. PGSO ,Y STA. 

14 PGS1 ,Y LDA. GAP 1+ ADC. PGS1 ,Y STA. 

15 ELSE. 



0 

1 

2 FRAG 2. HARDPAGE ( address -- ) 

3 PURPOSE: update page table for cursor 



4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 



creeper crossing a hard page break. 

store the address of the current page in 
the page table. 

the variable LOCAL 1 is cleared, so that 
CREEPER will work right. 




4 , 806,916 
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16 


YPOS LDY. WND3 .Y LDA. TAY, SEC, 




16 


17 


PGSO , Y 


LDA, GAP SBC. PGSO ,Y 


STA. 


17 


18 


PGS1 ,Y 


LDA. GAP 1+ SBC. PGS1 ,Y 


STA. 


18 


19 


ENDIF, 






19 


20 


ENDIF. 






20 


21 


I NX. INX, 


<XNEXT> JMP. 




21 


22 








22 


23 








23 



103 



0 ( <WRAP> ) HEX ;S 

1 

2 FRAG <WRAP> SEC, 

3 HR LDA, YWRAP SBC. X5 STA. 

4 HR 1+ LDA, 0 8B SBC. X5 1+ STA. 

5 YWRAP LDY, cr 8B LDA, 

6 BEGIN. XS )Y CMP. CS 

7 IF, EQ IF. INY, ENDIF, 

3 TYA, YWRAP SBC. WC STA, EO 
9 IF, HC INC, ENDIF, RTS. 

10 ENDIF, INY, MI UNTIL. 

11 20 SB LDA. WIDE LDY, DEY, HR )Y CMP. NE 

12 IF, INY. BEGIN, DEY. MI 

13 IF, WIDE LDA. WC STA. RTS. ENDIF, 

14 WR )Y CMP, EQ 

15 UNTIL. INY, WC STY, RTS. ENDIF, 

16 DEY. WR )Y CMP. EQ 

17 IF. HIDE LDA. WC STA. RTS. ENDIF. 

18 WIDE LDY. WR )Y CMP. EQ 

19 IF. DEY, DEY. BEGIN, DEY. MI IF, WIDE 

20 LDA. WC STA. RTS. ENDIF, WR )Y CMP, 

21 EQ UNTIL, INY. WC STY. RTS. ENDIF. 

22 WIDE LDA. WC STA. RTS. 

23 



sc r 8 104 

0 ( 2. WRAP BMP ) HEX ;S 

1 

2 FRAG 2. WRAP \ <WRAP> JSR, <XNEXT> JMP. 

3 

' 4 FRAG BMP CLC, 

5 WC LDA. WR ADC. WR STA. CS 

6 IF. WR 1+ INC, ENDIF. 

7 EBOT CMP. WR 1+ LDA, EBOT 1+ SBC. NC 

8 IF. RTS, ENDIF. 

9 WR LDA. BEOT CMP, 

10 WR 1+ LDA. BEOT 1* SBC, NC 

11 IF, WR LDA. GAP ADC. WR STA. 

12 WR 1+ LDA. GAP 1+- ADC, WR 1+ STA, 

13 ENDIF, 

14 RTS. 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 

1 

2 FRAG 2 . SOFTPAGE ( oLdNARROW — ) 

3 PURPOSE: update page table for cursor 

4 creeper crossing a soft page break. 

5 

6 use vert cursor position on the screen 

7 (store YPOS. in Y register) 

8 if creep was going left then 

9 if cursor was wide (stack element » 0) 

10 if cursor was on a page boundary 

11 (window table - BEOT ■ 0) 

12 get page 8 from window table 

13 add gap 

14 and store in that page of page table 

15 else (creep was going right) 

16 if cursor is at left margin (XPOS « 0) 

17 get page 8 from window table 

18 subtract gap 

19 and store in that page of page table 

20 discard element from stack 

21 
22 
23 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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105 

0 < 2. STOP? ) HEX 

1 

2 FRAG 2. STOP? 

3 DEX. DEX. 0 SB LOA. 

4 0 SP) STA. 1 SP) STA, 

5 C0S1 LOA. C062 ORA. MI 

6 IF, <XNEXT> JMP, ENOIF. 

7 0 SP) DEC. 1 SP) DEC. 

8 TEOS 1+ LDA. WR 1+ CMP. 

9 TEOS LDA. WR SBC. NC 

10 IF. <XNEXT> JMP, ENOIF. 

11 MQIN LDA. MQOUT CMP, NE 

12 IF. <XNEXT> JMP, ENOIF. 

13 CHAR LDA. del 80 OR SB CMP. EQ 

14 IF. <XNEXT> JMP, ENDIF, 

15 CHAR LDA. tab 80 OR SB CMP. CS 

16 IF. LEXXING LDA. EQ 

17 IF, <XNEXT> JMP. ENDIF. 

18 ENDIF, 

19 0 SP) INC, 1 SP) INC. 

20 <XNEXT> JMP. 

21 
22 
23 
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0 ( 2 . INCPAGES ) HEX 

1 

2 ( endaddress .increase startpage — ) 

3 FRAG 2. INCPAGES 0 SP) LDY, 

‘ 4 I NX, I NX, 

5 BEGIN, INY. 2 SP) LOA. PGSO .Y CMP, 

6 3 SP) LDA. PGS1 ,Y SBC, NC 

7 IF, DEY. PCT STY. 0 SB LDA. LCT STA, 

8 PGS2 , Y LDA. LCTR STA. 

9 PGS3 ,Y LDA, LCTR 1* STA. 

10 I NX, INX, I NX. I NX, 

11 <XNEXT> JMP, 

12 ENOIF. CLC. 0 SP) LDA. PGSO ,Y ADC. 

13 PGSO ,Y STA, WR STA. 

14 1 SP) LDA. PGS1 ,Y ADC, 

15 PGS1 , Y STA. WR 1+ STA, 

16 AGAIN, 

17 

18 

19 

20 
21 
22 
23 

107 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 



0 FRAG 2. STOP? ( — flag ) 

1 PURPOSE: true flag means interrupt 

2 wrapping to add a cr, ff, tab. delete 

3 or any printable character wrapped 

4 past TEOS. also process a modem 

5 character. 

6 

7 put 0 flag on stack. 

8 if a lex key then exit. 

9 put -1 flag on stack. 

10 if wrapped past TEOS. or something in 

11 modem queue, or a cr. ff, tab. delete 

12 or any other printed character, 

13 then exit. 

14 put 0 flag on stack and exit. 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 FRAG 2. INCPAGES ( endaddress increase 

1 startpage — ) 

2 PURPOSE: update the page table by 

3 adding the increase from startpage to 

4 endaddress. 

5 

6 start examining the page table by 

7 setting Y-reg equal to startpage. 

8 while the end address is less than the 

9 address for each page (PGS0.1) add 

10 the increase to that page (PGS0.1) 

11 and update the wrap address (WR). 

12 when the end address is larger than the 

13 address for a page (PGS0.1) store 

14 the last updated page in PCT, clear 

15 LCT. store PGS2.3 into LCTR, and exit. 

16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL UM/MOD 

1 ( double-number 

2 unsigned-divisor — remainaer quotient i 

3 PURPOSE: return the remainder and 

4 quotient of the unsigned mixed number 

5 division. 

6 

7 NOTE: this has been used in a number of 

8 places to determine the maximum that a 

9 number can be divided by plus one. 




83 



4 , 806,916 



e.g. , ( nl 0 n2 — r>3 ) 

UM/MCD SWAP IF }* ENOIF 

sea. for example . MARGIN-CHANGES. 



1 2 . CMOVE> 

2 



0 CR 0 NAMED ! 

1 FRAG end_of_bank2 



return printing to left half of page 



FRAG and_of_bank2 affords printout of 
tha last available byta in bank 2 
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ser B 110 

0 ( INITIALIZATION CODE > HEX 

1 

2 ASSEMBLER 

3 OA 00 LDX. MI 

4 IF. OB SB LOX. ENDIF. 

5 SEI . OLD. MI 

6 IF. SOURCE RESET C. WARM C. ASSEMBLER 

7 HERE RES ! 

8 IP )Y LDA, INY. .A ASL, NC 

9 IF, HERE RES 0 - 3 ♦ NEXT ♦ STA. 

10 ROM JUMP, 

11 ENDIF, HERE RES 9 - 4 ♦ NEXT ♦ STA. 

12 CLC, ROM 100 ♦ ) JMP, 

13 ROM 200 ♦ ) JMP, 

14 ENOIF, 0 *8 LDY, 

15 BEGIN. ROM 20C + ,Y LDA. NEXT .Y STA. 

16 INY. 12 KB CPY, EQ 

17 UNTIL, IP STX. 

18 ROM 200 ♦ SWAB OFF ANO SB LDX. 

19 IP 1+ STX. 

20 08 SB LOX. VB 1* STX. 

21 04F SB LDX. TXS. 

22 SPO SB LDX. C010 LDA. 

23 0 88 LDY, TNEXT, 

111 

0 ( listing header, copyright msg ) 

1 

2 CR CR CR EDGE Apple Version 1C4 

3 3 1985 September 27 Friday" 

4 CR CR CR AIM U. beginning of bank 1" 

5 CR 

6 

7 FRAG . MSGO " SwyftCard 104 

8 3 //e Copyright 1985 Information Appli 

9 anca Inc." 

10 

11 

12 ( NOTE: if you change the version S. 

13 you must ALSO update the screen that 

14 . SWYFT is on - 216 ) 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( NEST VARIABLE ) HEX 

1 

2 FRAG .NEST 

3 PLA. XO STA. PLA. XO 1+ STA. 

' 4 TYA, PHA. 0 SB LDA, PHA, 



86 
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22 

23 



0 initialization code at D200 

1 

2 0200: OA to X register, for IP • COLD 

3 0204; OB to X register, for IP * WARM 

4 0206: SEI. CLD. 

5 D208: always branch to D022 

6 D20A: RESET C. 

7 02 OB: WARM C, 

8 D20C: rom copy of Forth NEXT (at 006B) 

9 

10 YNEXT: YSAVE LDY. 

11 NEXT: IP ) Y LDA. INY, .A ASL. NC 

’2 IF, HERE RES 8 - 3 + NEXT ♦ STA, 

13 ROM ) JMP. 

14 ENOIF. HERE RES 8 - 4 ♦ NEXT + 

15 STA. CLC. ROM 100 ♦ )JMP, 

16 

1-7 D222: copy code at OOOC to NEXT. 

18 point IP to S020A (COLD) or to 

19 SD20B (WARM). 

20 4F to return stack register. 

21 data stack pointer to X register. 

22 clear the keyboard strobe. 

23 

0 ( listing header, copyright msg ) 

1 

2 message for compilation printout. 

3 

4 

5 

6 

7 LABEL .MSGO 

8 PURPOSE: message for SwyftCard bootup. 

9 
10 

11 NOTE1 : the position of the version 

12 number within .MSGO must remain the 

13 same. it is used to correctly load 

14 the key and command tables with the 

15 right values. 

16 

17 

18 

19 

20 
21 
22 
23 



0 ( NEST VARIABLE ) HEX 

1 

2 FRAG .NEST 

3 save current IP and Y-reg on stack, 

4 put return address (from JSR .NEST) 
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5 IP LDA. PHA, IP 1+ LDA. PHA. 

6 XO LDA, IP STA, XO 1+ LDA. IP 1+ STA. 

7 1 SB LDY, TNEXT, 

8 

9 LABEL .VARIAB 

10 IP )Y LDA. I NY, YSAVE STY. 0 88 LDY. 

11 VB STA. DEX. DEX. 

12 VB )Y LDA, 0 SP) STA. I NY, 

13 VB )Y LDA. 1 SP) STA. 

14 YSAVE LDY, TNEXT. 

15 

16 

17 

18 

19 

20 
21 
22 



23 



88 

5 into IP, initialize Y-reg » 1 , 

6 then JMP NEXT. 

7 

8 LABEL .VARIAB 

9 store page number (S08) and offset {next 

10 number) in VB; get value pointed to in 

11 variable table and put on stack. 

12 

13 remember that IP and Y-reg point to 

14 current token (controlled by NEXT) 

15 and that the token for .variab is SOS 

16 which is also the page for variables. 

17 note that y-reg incremented, saved and 

18 restored. 

19 

20 LABEL .CALL 

21 PURPOSE: jump to the address in the two 

22 bytes compiled following this token 

23 



113 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 
1 
2 
3 

'• 4 

5 

6 

7 

8 
9 

10 

11 

12 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 
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13 

14 

15 
IS 

17 

18 

19 

20 
21 
22 
23 

115 

0 ( CHAR. TRANSLATION TABLE ) HEX 

1 

2 FRAG .XLAT 



3 


del 


c. 


( 


DELETE :: RUBOUT ) 


4 


7 


c. 


( 


01 , "A 


: : PASTE > 


5 


00 


c. 


( 


02. 'B 


:: was PRINT ) 


6 


00 


c. 


( 


03. *C 


:: was SEND ) 


7 


5 


c, 


( 


04. *D 


:: SEND ) 


8 


00 


c. 


( 


05, *E 


) 


9 


00 


c. 


( 


06. *F 


) 


10 


8 


c. 


( 


07. *G 


:: BASIC ) 


11 


00 


c. 


( 


08. *H 


) 


12 


tab 


c. 


( 


09. *1 


:: TAB ) 


13 


00 


c. 


( 


OA, *J 


:: was PRINT) 


14 


00 


c. 


( 


08. *k. 


UP-ARROW ) 


15 


4 


c. 


< 


OC.'L 


:: DISK ) . 


16 


cr 


c. 


( 


00. *m. 


CARRIAGE RETURN ) 


17 


2 


c, 


< 


OE.'N 


:: PRINT ) 


18 


00 


c. 


( 


OF. -0 


:: NOOP - was GET ) 


19 


00 


c. 


( 


10. *P 


: : was BASIC ) 


20 


00 


c. 


( 


11,-0 


) 


21 


00 


c. 


( 


12. -R 


:: was 6 - GET. CUT 


22 


00 


c. 


( 


13. -S 


) 


23 













13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 ( CHAR. TRANSLATION TABLE ) HEX 

1 

2 FRAG .XLAT 

3 PURPOSE: used to translate a control 

4 character into an index. The index 

5 is an offset into .LTABLE (the command 

6 table) which contains addresses for 

7 executable functions. Since .XLAT 

8 is downloaded into ram the functions 

9 can be reassigned (see 7RAMKEYS and 

10 RAMKEYS). 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( CHARACTER TRANSLATION TABLE ) HEX 0 

1 1 

2 00 C. ( 14. 'X ) 2 

3 00 C. ( 15, ‘U ) 3 

• 4 00 C. ( 16. *V ) 4 

5 00 C. ( 17. -W :: was 0ISK ) 5 

6 00 C. ( 18. -X ) 6 

7 00 C. ( 19. 'Y :: was PASTE ) 7 

8 C C. ( 1A.-Z ) 8 

9 ff C, ( IB. ESCAPE :: PAGE ) 9 

10 00 C. ( 1C,'\ ) 10 

11 9 C. ( ID.*] :: MON ) 11 

12 3 C. ( IE. *6 :: SORT, was 0LDL0A0 ) 12 

13 B C. ( IF.*- ) 13 

14 14 

15 15 

16 16 

17 17 

18 18 

19 19 

20 20 

21 21 

22 22 

23 23 
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0 ( DISPLAY ARRAY ) HEX 

1 

2 FRAG .DISPO 

3 



4 


400 


C. 


480 


c. 


500 


c. 


580 


c. 


5 


O 

o 

<D 


c. 


680 


C. 


700 


c. 


780 


C, 


6 


428 


c. 


4A8 


C. 


528 


c. 


5A8 


c. 


7 


628 


c. 


6A8 


C. 


728 


c. 


7A8 


c. 


8 


450 


c. 


400 


C. 


550 


c. 


500 


c. 


9 


650 


c. 


600 


C. 


750 


c. 


700 


c. 


10 


















11 


FRAG .1 


DISP1 










12 


















13 


400 


H. 


480 


H, 


500 


H, 


580 


H. 


14 


600 


H. 


680 


H, 


700 


H. 


780 


H, 


15 


428 


H. 


4A8 


H, 


528 


H. 


5A8 


H. 


16 


628 


H, 


6AS 


H, 


728 


H, 


7A8 


H. 


17 


450 


H, 


4D0 


H, 


550 


H, 


500 


H, 


18 


650 


H, 


600 


H, 


750 


H. 


700 


H. 



19 

20 
21 
22 
23 



scr # 118 

0 ( BUFFER FOR ALT SCREEN ) HEX 

1 



2 


FRAG . SCR1 




- 










3 


SCREEN 






H, 


SCREEN 


28 


♦ 


H. 


4 


SCREEN 


050 


♦ 


H, 


SCREEN 


78 


+ 


H, 


5 


SCREEN 


OAO 


■f 


H, 


SCREEN 


0C8 


♦ 


H. 


6 


SCREEN 


0F0 


♦ 


H, 


SCREEN 


118 


♦ 


H, 


7 


SCREEN 


140 


♦ 


H. 


SCREEN 


168 


♦ 


H, 


8 


SCREEN 


190 


♦ 


H, 


SCREEN 


188 


♦ 


H, 


9 


SCREEN 


1 EO 


♦ 


H, 


SCREEN 


208 


♦ 


H. 


10 


SCREEN 


230 


♦ 


H, 


SCREEN 


258 


♦ 


H, 


11 


SCREEN 


280 


♦ 


H. 


SCREEN 


2A8 


♦ 


H. 


12 


SCREEN 


2D0 


♦ 


H. 


SCREEN 


2F8 


♦ 


H. 


13 


SCREEN 


320 


+ 


H. 


SCREEN 


348 


♦ 


H. 


14 


SCREEN 


370 


♦ 


H, 


SCREEN 


398 


♦ 


H, 



15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( BUFFER FOR ALT SCREEN ) HEX 



1 

2 FRAG .SCRO 



3 


SCREEN 






C. 


SCREEN 


28 


♦ 


C, 


4 


SCREEN 


050 


+ 


c. 


SCREEN 


78 


♦ 


C. 


5 


SCREEN 


OAO 


♦ 


c. 


SCREEN 


0C8 


♦ 


c. 


6 


SCREEN 


0F0 


♦ 


c. 


SCREEN 


118 


♦ 


c. 


7 


SCREEN 


140 


♦ 


c. 


SCREEN 


168 


♦ 


c. 


8 


SCREEN 


190 


♦ 


c. 


SCREEN 


168 


+ 


c. 


9 


SCREEN 


1 EO 


♦ 


c. 


SCREEN 


208 


+ 


c. 



0 FRAG -DISPO 

1 
2 

3 

4 

5 

6 

7 

8 

9 FRAG -OISP1 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 FRAG -SCR1 

1 PURPOSE: buffer for alternate screen 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG -SCRO 

1 PURPOSE: buffer for alternate screen 

2 

3 

4 

5 

6 

7 

8 
9 




4 , 806,916 
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93 








10 


SCREEN 


230 


+ 


C, 


SCREEN 


258 


♦ 


C. 


11 


SCREEN 


280 


♦ 


c. 


SCREEN 


2A8 


♦ 


C. 


12 


SCREEN 


200 


+ 


c. 


SCREEN 


2F8 


+ 


c. 


13 


SCREEN 


320 


♦ 


c, 


SCREEN 


348 


♦ 


c. 


Id 

15 


SCREEN 


370 


♦ 


c. 


SCREEN 


398 


♦ 


c. 



16 

17 

18 

19 

20 
21 
22 
23 

sc r # 120 

0 ( calls to 2nd bank ) HEX 

1 



2 


XFER 


REVERSE - 


2. REVERSE 


3 


XFER 


SEEK> 


2 . SEEK> 


4 


XFER 


SEEK< 


2 . SEEK< 


5 


XFER 


ADJUST 


2. ADJUST 


S 


XFER 


TOBUFF 


2. TOBUFF 


7 


XFER 


PRESET 


2. PRESET 


8 


XFER 


. 40C0L 


2.40C0L 


9 


XFER 


ABOOT 


2. ABOOT 


10 


XFER 


.MON 


2. MON 


11 


XFER 


<REAO> 


2 . <READ> 


12 


XFER 


<SEEK> 


2.<SEEK> 


13 


XFER 


<WRITE> 


2.<WRITE> 


14 


XFER 


7ED0E 


2.7EDDE 


15 


XFER 


’APPLE 


2.7APPLE 


16 


XFER 


CHECKSUM 


2. CHECKSUM 


17 


XFER 


ENDWRAP 


2 . ENOWRAP 


IS 


XFER 


7UP0ATE 


2.7UPDATE 


19 


XFER 


PAGEPRINT 


2. PAGEPRINT 


20 


XFER 


SHOWPAGE 


2. SHOWPAGE 


21 


XFER 


SERIAL# 


2. SERIAL# 


22 


XFER 


V 


2.V 



23 

121 

0 { calls to 2nd bank ) HEX 

1 



2 


XFER 


8K 


2.SK 


3 


XFER 


?X 


2.7X 


4 


XFER 


SETMOOEM 


2. SETMOOEM 


5 


XFER 


CONTROL 


2. CONTROL 


6 


XFER 


WRITEO 


2. WRITEO 


7 


XFER 


HARDPAGE 


2 . HARDPAGE 


8 


XFER 


SOFTPAGE 


2 . SOFTPAGE 


9 


XFER 


STOP? 


2 . STOP? 


10 


XFER 


INCPAGES 


2 . INCPAGES 


1 1 








1 2 


;S 






13 








1 4 


XFER 


8M 


2.eM 


15 


XFER 


CM0VE2 


2.CMOVE2 


16 


XFER 


WRAP 


2. WRAP 


17 


XFER 


LOCLIN 


2. LOCLIN 


18 


XFER 


LOCCHR 


2 . LOCCHR 


19 








20 









10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
2 3 



0 XFER creates a 7 byte structure which 

1 will transfer control to the code in 

2 the alternate bank at D000 to DOFF. 

3 All routines in bank 2 return to bank 

4 1 by exiting through <XNEXT>. 

5 

6 For example. XFER will cause any 

7 reference REVERSE to access the 

8 routine 2. REVERSE in bank 2. 

9 
10 
11 
12 

13 

14 

15 

16 

17 

18 
19 
20 
21 
22 
23 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 ' 

12 

13 

14 

15 

16 

17 

18 

19 

20 




95 



4 , 806,916 
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21 21 

22 22 

23 23 



sc r 8 122 

0 ( .QUE ) HEX 

1 

2 FRAG .QUE CQ10 STA. 

3 FF 88 CMP. 0 88 AOC. 

4 7F 88 AND. 20 88 CMP. NC 

5 IF. TAY, HIMEM ,Y LDA. ENDIF, 

6 CHAR LDY, PL 

7 IF, 80 88 ORA. CHAR STA. 

8 ELSE. QIN LDY. KQUE ,Y STA. DEY. MI 

9 IF. 4 8B LDY. ENDIF. QIN STY. 

10 ENDIF. RTS. 

1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

123 

0 < EXIT ) HEX 

1 

2 LABEL EXIT 

3 PLA. IP 1+ STA, PLA, IP STA. 

4 PLA. PLA. TAY. TNEXT . 

5 

6 LABEL . 2BYTERS IP )Y LDA. .A ASL, INY. 

7 NEXT 11 + STA. NEXT 10 ♦ JMP. 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 .QUE ( — ) 

1 PURPOSE: put keyboard character into 

2 key queue. 

3 

4 it Looks to see if it is 

5 a control or special character, and if 

6 not then puts it in the key queue. 

7 the queue offset is pointed to by QIN. 

8 the value in TIMER (-1. -2. and -3) 

9 is initialized, from value in TIMER. 
10 

11 NOTE: A-reg holds byte read from SC000 

12 before calling this routine. 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL EXIT 

1 restores previous IP and y-reg for NEXT 

2 

3 

4 LABEL . 2BYTERS 

5 this word modifies NEXT 

6 
7 
a 
9 

10 

11 

12 note that IP for any one word is the 

13 address left by JSR next and that the 

14 y register is used to increment within 

15 that word (see screen 110). 

16 

17 

18 

19 

20 
21 
22 
23 
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0 
1 
2 
3 

' 4 



0 

1 

2 

3 

4 
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4,806,916 



98 



s 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 
1 7 
18 

19 

20 
21 
22 
23 



5 

6 
7 
S 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( .LIT ) HEX 0 

1 1 



2 


LABEL .LIT 


DEX, 


3EX, 




2 


3 


IP )Y LOA, 


0 SP) 


STA, 


INY, 


3 


4 


IP )Y LDA. 


1 SP) 


STA, 


INY. TNEXT. 


4 


6 










5 


6 


LABEL .BLIT 


DEX, 


DEX, 




6 


7 


IP ) Y LDA. 


0 SP) 


STA, 


INY, 


7 


8 


0 #B LDA. 


1 SP) 


STA. 


TNEXT, 


8 


9 










9 


10 










10 


11 










11 


12 










12 


13 










13 


14 










14 


15 










15 


16 










16 


17 










17 


18 










18 


19 










19 


20 










20 


21 










21 


22 










22 


23 










23 



LABEL .LIT 

PURPOSE: compile a word sized Literal. 



LABEL .BLIT 

PURPOSE: compile a byte sized literal. 



scr t» 126 

0 ( .BRAN .OBRAN ) HEX 

1 

2 LABEL .BRAN -IP )Y LOA. TAY. TNEXT . 

3 

4 LABEL .OBRAN 

5 0 SP) LDA. I NX, 0 SP) ORA. NE 

6 IF, INY, I NX , TNEXT, 

7 ENOIF, I NX, 

8 IP )Y LDA, TAY. TNEXT, 

9 
10 
11 
12 
13 



0 LABEL .BRAN 

1 PURPOSE: force a branch, used, e.g., by 

2 ELSE, by REPEAT. 

3 

4 LABEL .OBRAN 

5 PURPOSE: conditional branch, used, e.g., 

6 by IF, WHILE. ' 

7 

8 
9 

10 

11 

12 

13 



14 



14 



15 



15 
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4,806,916 



100 



16 

17 

ia 

19 

20 
21 
22 
23 

127 

0 ( .DO .LOOP ) HEX 

1 

2 LABEL .DO TYA. PHA, PHA. SEC. 

3 3 SP) LDA. PHA. 2 SP) LDA. PHA, 

4 0 SP) LDA, 2 SP) SBC, XO STA, 

5 1 SP) LDA, 3 SP) SBC. PHA. 

6 XO LDA. PHA, 

7 INX. I NX, I NX , I NX, TNEXT, 

8 

9 LABEL .LOOP XSAVE STX. TSX. 

10 0 RP) INC, EQ IF. 1 RP) INC. ENDIF. EQ 

11 IF. TXA, 6 #B AOC, TAX. TXS, 

12 ELSE. 4 RP) LDY, 

13 ENDIF. XSAVE LDX, TNEXT, 

14 

15 LABEL .LEAVE' 

16 PLA. PLA, PLA, PLA. PLA, PLA. 

17 IP ) Y LDA. TAY, TNEXT. 

18 

19 LABEL I DEX, DEX. XSAVE STX. TSX. CLC. 

20 0 RP) LDA. 2 RP) ADC. PHA. 

21 1 RP) LDA. 3 RP) ADC, XSAVE LDX. 

22 1 SP) STA, PLA, 0 SP) STA. TNEXT. 

23 



scr » 128 

0 ( . + LOOP ) HEX 

1 

2 LABEL ,+LOOP -YSAVE STY. 

3 1 SP) LDY, 

4 0 SP) LDA. INX. INX. XSAVE STX. TSX. 

5 0 RP) AOC, 0 RP) STA. TYA. 

6 1 RP) AOC. 1 RP) STA. TYA. MI 

7 IF. CS 

8 IF, 4 RP) LDY, XSAVE LDX. TNEXT. 

9 ENDIF. 

10 ELSE, NC 

11 IF. 4 RP) LDY, XSAVE LDX. TNEXT. 

12 ENDIF. 

13 ENDIF, CLC. TXA. 6 #B ADC, TAX. TXS, 

14 XSAVE LDX. YSAVE LDY. TNEXT. 

15 

16 

17 

18 

19 

20 
21 
22 
23 



16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL .DO ( to from — ) 

1 PURPOSE: initialize a looo. 

2 

3 

4 LABEL DROP ( n — ) 

5 PURPOSE: remove element from stack. 

6 

7 

8 LABEL .LOOP ( — ) 

9 PURPOSE: end a loop when the count has 

10 bean reached. * 

11 
12 

13 LABEL I ( — i ) 

14 PURPOSE: place count of do-loop on stacx 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 LABEL .LEAVE 

1 PURPOSE: exit a do-loop unconditionally 

2 

3 

4 LABEL . *LOOP ( n — ) 

5 PURPOSE: exit a loop when the count has 

6 been reached (increment each loop by 

7 the .n) . 

8 
9 

10 FRAG XYNEXT 

11 PURPOSE: an alternate exit from LABEL 

12 definitions: restore X and Y registers 

13 

14 

15 

16 

17 . 

18 

19 

20 
21 
22 
23 
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4,806,916 



102 



129 

0(012-1 NOOP ) HEX 
1 

2 LABEL 0 OEX. OEX. 0 SB LDA, 

3 0 SP) STA. 1 SP) STA. 

4 TNEXT, 

5 

6 LABEL 1 OEX. OEX. 0 SB LDA. 

7 1 SP) STA, 1 SB LDA. 0 SP) STA. 

8 TNEXT, 

9 

10 LABEL 2 OEX. DEX. 0 SB LDA, 

11 1 SP) STA, 2 SB LDA. 0 SP) STA, 
1 2 TNEXT , 

13 

14 LABEL -1 DEX, DEX. OFF SB LDA. 

15 0 SP) STA. 1 SP) STA, 

1 6 TNEXT . 

17 

18 LABEL NOOP TNEXT, 

19 

20 
21 
22 
23 



0 LABEL 0 ( -- 0 ) 

1 
2 

3 LABEL 1 ( — 1 ) 

4 

5 

6 LABEL 2 ( — 2 ) 

7 

8 

9 LABEL -1 ( 1 ) 

10 

11 

12 LABEL NOOP ( — ) 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



sc r S 1 30 

0 ( CMOVE ) HEX 

1 

2 LABEL CMOVE XSAVE STX, YSAVE STY, 

3 5 SP) LDA. XO 1* STA, 

4 4 SP) LDA, XO STA. 

5 3 SP) LDA, XI 1* STA. 

6 2 SP) LDA. XI STA. 0 SB LDY, 

7 1 SP) LDA. NE 

8 IF. BEGIN, 

9 BEGIN, XO ) Y LDA. XI )Y STA, INY, EQ 

10 UNTIL. XO 1+ INC, XI 1+ INC, 

11 1 SP) DEC. EO 

12 UNTIL. 

13 ENDIF, 0 SP) LDA. NE 

14 IF. TAX. 

15 BEGIN. XO )Y LDA. XI )Y STA, INY. 

16 DEX. EQ 

17 UNTIL. 

18 ENDIF. XSAVE LDA. CLC, 6 SB ADC. TAX. 

19 YSAVE LDY. TNEXT, 

20 
21 
22 
23 

131 

0 ( CMOVE> ) HEX 

1 

2 LABEL CMOVE> YSAVE STY. 

3 1 SP) LDA, X2 STA. 

4 5 SP) ADC, XO 1+ STA. CLC, 

5 3 SP) LDA. X2 ADC. XI 1+ STA. 

6 4 SP) LDA. XO STA. 

7 2 SP) LDA. XI STA. 

8 0 SP) LDA, NE 

9 IF, TAY, DEY. NE 



0 LABEL CMOVE ( from to S -- ) 

1 PURPOSE: move S of bytes from to. 

2 

3 

4 

5 
8 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
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104 



103 

10 IF, BEGIN, X0 ) Y IDA. XI )Y STA, 10 

11 OEY, EQ UNTIL. 11 

12 ENDIF, XO )Y LDA. XI )Y STA. 12 

13 ENDIF, X2 LDA. NE 13 

14 IF, BEGIN. OFF #B LDY. 14 

15 XO 1+ DEC, XI 1* OEC. 15 

16 BEGIN. XO )Y LDA. XI )Y STA. DEY. EQ 16 

17 UNTIL. XO ) Y LDA. XI >Y STA. 17 

18 X2 OEC. EO 18 

19 UNTIL. 19 

20 ENDIF. YSAVE LDY. 20 

21 CLC, TXA, 6 KB ADC, TAX. TNEXT . 21 

22 22 

23 23 
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0 ( AND OR XOR ) HEX 

1 

2 LABEL AND 

3 0 SP) LDA. 2 SP) AND. 2 SP) STA. 

4 1 SP) LDA. 3 SP) ANO. 3 SP) STA. 

5 I NX. INX. TNEXT, 

6 

7 LABEL OR 

8 0 SP) LDA, 2 SP) ORA. 2 SP) STA. 

9 1 SP) LDA. 3 SP) ORA. 3 SP) STA. 

10 INX. INX. TNEXT. 

11 

12 LABEL XOR 

13 0 SP) LDA. 2 SP) EOR. 2 SP) STA, 

14 1 SP) LDA. 3 SP) EOR. 3 SP) STA, 

15 INX, INX. TNEXT, 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( DUP 2DUP DROP ) HEX 

1 

2 LABEL DUP 

3 DEX, DEX. 

4 2 SP) LDA. 0 SP) STA. 

5 3 SP) LOA. 1 SP) STA, 

6 TNEXT. 

7 

8 LABEL 2 DUP 

9 DEX. DEX. DEX. DEX. 

10 4 SP) LDA. 0 SP) STA. 

11 5 SP) LDA. 1 SP) STA. 

12 6 SP) LDA. 2 SP) STA. 

13 7 SP) LDA. 3 SP) STA. 

14 TNEXT. 

15 

16 LABEL DROP INX. INX. TNEXT. 

17 

18 

19 

20 



0 LABEL AND ( nl n2 — n3 ) 

1 PURPOSE: logical AND nl with n2 leaving 

2 n3 . 

3 

4 

5 LABEL OR ( nl n2 -- n3 ) 

6 PURPOSE: logical OR nl with n2 leaving 

7 n3. 

8 
9 

10 LABEL XOR ( nl n2 — n3 ) 

11 PURPOSE: logical exclusive OR nl with n2 

12 leaving n3. 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL DUP | n -- n n ) 

1 PURPOSE: duplicate n. 

2 

3 

4 LABEL 2DUP { nl n2 -- nl n2 nl n2 ) 

5 PURPOSE: duplicate nl n2. 

6 

7 

8 
9 

10 

11 * 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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106 


21 




21 




22 




22 




23 




23 
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0 


( SWAP rot : 


1 HEX 




0 


LABEL SWAP ( nl r>2 — n2 nl ) 


1 








1 


PURPOSE: switch order of top two 


2 


LABEL SWAP 


• 




2 


elements on stack. 


3 


2 SP) LOA. 


PHA. 0 SP) 


LDA. 


3 




4 


2 SP) STA. 


PLA. 0 SP) 


STA. 


4 




5 


3 SP) LDA. 


PHA. 1 SP) 


LDA. 


5 


LABEL ROT ( nl n2 n3 -- n2 n3 nl ) 


6 


3 SP) STA, 


PLA. 1 SP) 


STA. 


6 


PURPOSE: bring third element on stack to 


7 


TNEXT. 






7 


the top. 


B 








8 




9 


LABEL ROT 






9 




10 


4 SP) LDA. 


PHA. 2 SP) 


LDA. 


10 




11 


4 SP) STA. 


0 SP) LDA. 




11 




<2 


2 SP) STA. 


PLA. 0 SP) 


STA. 


12 




13 


5 SP) LDA. 


PHA. 3 SP) 


LOA. 


13 




14 


5 SP) STA. 


1 SP) LOA. 




14 




15 


3 SP) STA. 


PLA. 1 SP) 


STA. 


15 




16 


TNEXT. 






16 




17 








17 




18 








18 




19 








19 




20 








20 




21 








21 




22 








22 




23 








23 
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0 


( OVER ?OUP 


) HEX 




0 


LABEL OVER ( nl n2 -- nl n2 nl ) 


1 








1 


PURPOSE: duplicate second element on the 


2 


LABEL OVER 






2 


stack to the top. 


3 


OEX. DEX. 






3 




4 


4 SP) LDA. 


0 SP) STA. 




4 


LABEL ?DUP ( nl -- 0 | nl nl ) 


5 


5 SP) LDA. 


1 SP) STA. 




5 


PURPOSE: duplicate element on the stack 


6 


TNEXT. 






6 


if not zero. 


7 








7 




8 


LABEL ?DUP 






8 




9 


0 SP) LDA, 


1 SP) ORA. 


NE 


9 




10 


IF. DEX. DEX. 




10 




11 


3 SP) LDA, 


, 1 SP) STA. 


11 




12 


2 SP) LDA, 


, 0 SP) STA. 


12 




13 


ENDIF. 






13 




14 


TNEXT. 






14 




15 








15 




16 








16 




17 








17 




18 








18 




19 








19 




20 








20 




21 








21 




22 








22 


» 


23 








23 
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0 ( I R> >R R8 ) HEX 


0 


LABEL R> 


( — n ) 


1 


1 


PURPOSE : 


remove n from return stack. 


2 LABEL R> DEX, DEX, 


2 






3 PLA. 0 SP) STA. 


3 






4 PLA. 1 SP) STA. TNEXT. 


4 


LABEL >R 


( n — ) 




107 



4 , 806,916 



5 

6 LABEL >R 

7 1 SP) LDA, PHA. 

8 0 SP) LDA. PHA. 

9 I NX , XNX, TNEXT , 

10 

11 LA8EL R9 DEX. DEX. 

12 PLA, 0 SP) STA. 

13 PLA, 1 SP) STA. PHA. 

14 0 SP) LDA. PHA. TNEXT. 

15 

16 

17 

18 

19 

20 
21 
22 
23 

137 

0 ( LEAVE ) HEX :S 

1 

2 LABEL LEAVE 

3 XSAVE STX. TSX. 

4 1 RP) LDY, 

5 0 RP) LDA. 1 #B ADC. 2 RP) STA. EQ 

6 IF, INY, ENDIF, TYA. 

7 3 RP) STA. 

8 XSAVE LDX. TNEXT. 

9 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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5 PURPOSE: place n on return stack. 

6 

7 

8 LABEL R@ ( — n ) 

9 PURPOSE: copy element from return stack 
10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1 4 
•15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( 1 + 1 -) 

1 

2 LABEL 1+ 

3 0 SP) INC, EQ 

4 IF. 1 SP) INC. ENDIF. 

5 TNEXT. 

6 

7 LABEL 1- 

8 0 SP) LDA, EQ 

9 IF, 1 SP) DEC. ENDIF. 

10 0 SP) DEC. 

11 TNEXT, 

12 

13 

14 

15 



0 LABEL 1+ ( n — n+1 ) 

1 PURPOSE: add one to element on stack. 

2 

3 

4 LABEL 1- ( n — n-1 ) 

5 PURPOSE: subtract one from element on 

6 stack. 

7 

8 
9 

10 

11 

12 

13 

14 

15 
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110 



16 




16 




17 




17 




18 




18 




19 




19 




20 




20 




21 




21 




22 




22 




23 




23 
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0 


( 9 C8 ) HEX 


0 


LABEL 8 ( address — word-value ) 


1 




1 


PURPOSE: given address, return the value 


2 


LABEL S 


2 


residing there. 


3 


0 X) LDA. PHA. 


3 




4 


0 SP) INC, EQ 


4 




5 


IF, 1 SP) INC, ENDIF, 


5 


LABEL C@ ( address — byte-value ) 


6 


0 X) LDA, 


6 


PURPOSE: given address, return the value 


7 


1 SP) STA, PLA, 


7 


residing there. 


8 


0 SP) STA, TNEXT, 


8 




9 




9 




10 


LABEL C3 


10 




11 


0 X) LDA, 0 SP) STA, 


11 




12 


0 #B LDA. 1 SP) STA, 


12 




13 


TNEXT. 


13 




14 




14 




15 




15 




16 




16 




17 




17 




18 




18 




19 




19 




20 




20 




21 




21 




22 




22 


. 


23 




23 




»cr a 
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0 


( ! C! ♦! ) 


0 


LABEL ! ( n address — ) 


1 




1 


PURPOSE: store the value at the address. 


2 


LABEL ! 


2 




3 


2 SP) LDA. 0 X) STA. 


3 




4 


0 SP) INC. EQ 


4 


LABEL C! ( b address — ) 


5 


IF. 1 SP) INC. ENDIF. 


5 


PURPOSE: store the byte value at the 


6 


3 SP) LDA. 0 X) STA. 


6 


address. 


7 


I NX. I NX, I NX, I NX , TNEXT, 


7 




8 




8 




9 


LABEL C! 


9 


LABEL +! ( n address — ) 


10 


2 SP) LDA. 0 X) STA, 


10 


PURPOSE: increment the value at the 


11 


I NX , I NX, INX, I NX, TNEXT. 


11 


address by the value n. 


12 




12 




13 


LABEL +! 


13 




14 


2 SP) LDA. 0 X) ADC. 0 X) STA. 


14 




15 


0 SP) INC, EQ 


15 




16 


IF. 1 SP) INC. ENDIF. 


16 




17 


3 SP) LDA. 0 X) ADC. 0 X) STA. 


17 


. ' 


18 


INX, INX. INX. INX, TNEXT, 


18 




19 




19 




20 




20 




21 




21 




22 




22 


. 


23 




23 
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0 ( TO ADOR +TO ) HEX 

1 

2 LABEL TO YSAVE STY, 0 88 LDY, 

3 2 SP) LDA, VB )Y STA, INY, 

4 3 SP) LDA. VB )Y STA. YSAVE LDY. 

5 I NX, INX. INX, I NX , TNEXT , 

6 

7 LABEL ADOR 

8 VB LDA. 0 SP) STA. 

9 VB 1+ LDA. 1 SP) STA. 

1 0 TNEXT , 

1 1 

12 LABEL +TO YSAVE STY. 0 8B LDY. 

13 VB )Y LDA. 2 SP) ADC. VB )Y STA. INY. 

14 VB )Y LDA. 3 SP) AOC. VB )Y STA. 

15 YSAVE LDY. INX. INX. INX, INX. TNEXT. 

16 

17 

18 

19 

20 
21 
22 
23 



0 LABEL TO ( value constant — ) 

1 PURPOSE: store the value in place of 

2 the value normally returned by the 

3 constant. 

4 

5 LABEL +TO ( value constant — ) 

6 PURPOSE: replace the constant with the 

7 sum of the value and the constant. 

8 

9 LABEL ADOR ( constant — address ) 

10 PURPOSE: put the address of the last 

11 constant on the stack in place of the 

12 value returned by the constant. 

13 

14 

15 

16 

17 

18 

19 

20 



21 



22 



23 
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0 ( + - NEGATE ) HEX 

1 

2 LABEL + 

3 0 SP) LDA. 2 SP) ADC. 2 SP) STA. 

4 1 SP) LDA. 3 SP) ADC. 3 SP) STA, 

5 INX, INX, TNEXT, 

6 

7 LABEL - SEC. 

8 2 SP) LDA. 0 SP) SBC. 2 SP) STA, 

9 3 SP) LDA. 1 SP) SBC. 3 SP) STA. 

10 INX. INX. TNEXT. 

11 

12 LABEL NEGATE SEC. 

13 0 8B LDA. 0 SP) SBC. 0 SP) STA. 

14 0 88 LDA, 1 SP) SBC. 1 SP) STA. 

15 TNEXT, 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( BEEP FILL ) HEX 

1 

2 T: BEEP 100 0 

3 DO 1 0 DO LOOP 1 C030 C! LOOP ; 

4 

5 T: FILL SWAP >R OVER C! 

6 DUP 1+ R> 1- CMOVE ; 

7 

8 
9 



0 LABEL M nl n2 — n3 ) 

1 PURPOSE: add nl to n2 leaving n3. 

2 

3 

4 LABEL - ( nl n2 — n3 ) 

5 PURPOSE: subtract n2 from n3 leaving n3. 

6 

7 

8 LABEL NEGATE ( nl — n2 ) 

9 PURPOSE: subtract nl from zero leaving 

10 n2. 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FILL ( address 8 value — ) 

1 PURPOSE: fill from address for 8 bytes 

2 with the value. 

3 

4 . ERRORIS ( -- ) 

5 PURPOSE: take next byte from word. 

6 store it in ERROR, and beep. 

7 

8 BEEP ( — ) 

9 PURPOSE: sound the Apple speaker. 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 


( UM/MOD ) HEX 


0 


LABEL UM/MOD 


1 




1 


( doubLe-number 


2 


LABEL UM/MOO YSAVE STY. 


2 


unsigned-divisor — remainder quotient 


3 


0 SP) LDA, XO STA, 


3 


PURPOSE: return the remainder and 


4 


1 SP) LDA. XI STA, 


4 


quotient of the unsigned mixed number 


5 


2 SP) LDA. X4 STA. 


5 


division . 


6 


3 SP) LDA. X5 STA. 


6 




7 


4 SP) LDA. .A ASL, X2 STA. 


7 


NOTE: this has been used in a number of 


8 


5 SP) LDA. .A ROL. X3 STA. 


8 


places to determine the maximum that a 


9 


XSAVE STX, 10 #B LDX, 


9 


number can be divided by plus one. 


10 


BEGIN, X4 ROL. X5 ROL. SEC. 


10 


e.g. , ( nl 0 n2 — n3 ) 


11 


X4 LDA. XO SBC. TAY, 


11 


UM/MOD SWAP IF 1+ ENDIF 


12 


X5 LDA. XI SBC. CS 


12 


see. for example, MARGIN-CHANGES. 


13 


IF, X4 STY, X5 STA. ENDIF, 


13 




14 


X2 ROL, X3 ROL. DEX. EQ 


14 




15 


UNTIL. XSAVE LDX. 


15 




16 


X5 LDA. 5 SP) STA. 


16 




17 


X4 LDA. 4 SP) STA. 


17 




16 


X3 LDA. 3 SP) STA, 


18 




19 


X2 LDA. 2 SP) STA, 


19 




20 


I NX. I NX. YSAVE LDY, TNEXT , 


20 










4,806,916 






115 


116 


21 




21 




22 




22 




23 




23 
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0 


( 2* U2/ SWAB ) HEX 


0 


LABEL 2* ( n — n*2 ) 






1 




1 


PURPOSE: multiply n by 2. 






2 


LABEL 2* 


2 








3 


0 SP) ASL. 1 SP) ROL. TNEXT. 


3 








4 




4 


LABEL U2/ ( n -- n/2 ) 






5 


LABEL U2/ 


5 


PURPOSE: unsigned divide n 


by 


2. 


6 


1 SP) LSR, 0 SP) ROR, TNEXT, 


6 








7 




7 








8 


LABEL SWAB 0 SP) LOA, PHA. 1 SP) LDA, 


8 


LABEL SWAB ( nl — n2 ) 






9 


0 SP) STA. PLA. 1 SP) STA, TNEXT. 


9 


PURPOSE: swap the upper and 


lower bytes 


10 




10 


of nl to give n2. 






11 




11 








12 




12 








13 




13 








14 




14 








IS 




15 








16 




16 








17 




17 








18 




18 








19 




19 








20 




20 








21 




21 








22 




22 








23 




23 
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0 


( - 0- ) HEX 


0 


LABEL ■ ( nl n2 — flag ) 






1 




1 


PURPOSE: leave a true flag 


if 


nl equals 


2 


LABEL - YSAVE STY. 0 BB LDY. 


2 


n2 . 






3 


2 SP) LOA, 0 SP) CMP. EQ 


3 








4 


IF. 3 SP) LDA. 1 SP) CMP. ENDIF. EQ 


4 


FRAG . Y9 






5 


IF. DEY. ENDIF. 


5 


PURPOSE: an alternate exit 


from 


6 


I NX. I NX. 1 SP) STY. 0 SP) STY. 


6 


LABEL definitions: stores 


Y 


register 


7 


YSAVE LDY. TNEXT, 


7 


onto stack, jumps to YNEXT 






8 




8 








9 




9 


LABEL 0- ( n — flag ) 






10 


LABEL 0- YSAVE STY, 0 88 LOY. 


10 


PURPOSE: leave a true flag 


if 


n equals 


11 


0 SP) LDA. 1 SP) ORA. EQ 


11 


zero. 






12 


IF, DEY. ENDIF. 


12 








13 


0 SP) STY. 1 SP) STY. 


13 








14 


YSAVE LOY. TNEXT. 


14 








IS 




15 








16 




16 








17 




17 








18 




18 








19 




19 








20 




20 








21 




21 








22 




22 






• 


23 




23 
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0 ( U< 0< ABS 


) HEX 




0 


LABEL U< 


( nl n2 — flag ) 


1 






1 


PURPOSE: 


leave a true flag if nl is less 


2 LABEL U< 


- 




2 


than n2 . 




3 2 SP) LDA. 


0 SP) 


CMP. 


3 






4 3 SP) LDA. 


1 SP) 


SBC, 


4 


LABEL 0< 


( n — flag ) 




4 , 806,916 
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5 I NX, I NX, OFF MB LDA, 0 8B ADC. 

6 0 SP) STA, 1 SP) STA. 

7 TNEXT, 

8 

9 LABEL 0< YSAVE STY, 

10 0 8B LDY. 1 SP) LDA, MI 

11 IF, OEY, ENDIF. 

12 0 SP) STY, 1 SP) STY, 

13 YSAVE LDY. TNEXT, 

14 

15 

16 LABEL ABS 1 SP) LDA, MI 

17 IF, SEC, 

18 0 88 LDA, 0 SP) SBC, 0 SP) STA, 

19 0 88 LDA, 1 SP) SBC. 1 SP) STA. 

20 ENDIF, TNEXT, 

21 
22 
23 

149 

0 ( UMIN UMAX OMAX ) HEX 

1 

2 LABEL UMIN 

3 2 SP) LDA. 0 SP) CMP. 

4 3 SP) LDA. 1 SP) SBC. CS 

5 IF, 0 SP) LDA. 2 SP) STA. 

6 1 SP) LDA. 3 SP) STA. 

7 ENDIF. I NX , INX , 

8 TNEXT. 

9 

10 LABEL UMAX 

11 2 SP) LDA, 0 SP) CMP. 

12 3 SP) LDA. 1 SP) SBC. NC 

13 IF, 0 SP) LDA. 2 SP) STA. 

14 1 SP) LDA. 3 SP) STA. 

15 ENDIF, INX. INX. 

1 6 TNEXT . 

17 

18 LABEL OMAX 1 SP) LDA. MI 

19 IF, 0 8B LDA. 0 SP) STA. 1 SP) STA. 

20 ENDIF. 

21 TNEXT. 

22 
23 
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0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
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16 

17 

18 

19 

20 
21 
22 
23 
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0 ( ?K QUE ?A ?S ) HEX 

1 

2 LABEL ?K YSAVE STY, OEX, DEX. 

3 0 #B LDY, CHAR LDA. MI 

4 IF, OEY, ENDIF, 0 SP) STY. 

5 1 SP) STY. YSAVE LDY, TNEXT , 

6 

7 LABEL QUE YSAVE STY. COOO LDA. MI 

8 IF, \ .QUE JSR. ENDIF, YSAVE LDY. 

9 TNEXT. 

10 

11 LABEL 7A ( AGAIN? ) YSAVE STY. 

12 DEX, DEX. 0 KB LDY. 

13 CHAR LDA. tab 80 OR SB CMP. EQ 

14 IF. DEY. 07F AND. CHAR STA, ENDIF. 

15 0 SP) STY. 1 SP) STY. YSAVE LDY, 

16 TNEXT. 

17 

18 LABEL ?S ( SEARCH FOR CHAR ? ) 

19 YSAVE STY. OEX, DEX. 0 SB LDY. 

20 CHAR LDA, ff 80 OR SB CMP. CS 

21 IF. DEY, ENDIF, 0 SP) STY, 

22 1 SP) STY. YSAVE LDY. TNEXT. 

23 
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0 < ?E ?D ) HEX 

1 

2 LABEL ?E ( EXPAND SELECTION? ) 

3 YSAVE STY. DEX. DEX, 0 SB LDY. 

4 XFLAG LDA, 3 SB CMP, EQ IF, DEY. ENDIF. 

5 0 SP) STY, 1 SP) STY. YSAVE LDY. 

6 TNEXT, 

7 

8 LABEL ?D ( DELETE FROM PATTERN? ) 

9 YSAVE STY. DEX. DEX. 

10 0 SB LDY, CHAR LDA, 

11 del 80 OR SB CMP. EQ IF. DEY, ENDIF. 

12 0 SP) STY. 1 SP) STY, YSAVE LDY, 

13 TNEXT, 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL ?K ( — flag ) 

1 PURPOSE: detect if a key has been 

2 pressed. 

3 

4 LABEL ?A ( — flag ) 

5 PURPOSE: detect if "again” key has been 

6 pressed. 

7 true means "Tab" key pressed. 

8 this is the EDDE "again" key. 

9 

10 LABEL ?S ( -- flag ) 

11 PURPOSE: valid search for character (?) . 

12 true means normal character typed. 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 LABEL ?E ( -- flag ) 

1 PURPOSE: return true if both lex keys 

2 are being pressed. 

3 used to expand selection. 

4 forth equivalent : ?E XFLAG C8 3 * ; 

5 

6 LABEL ?D ( — flag ) 

7 PURPOSE: return true if delete key has 

8 been pressed. 

9 used to delete from the search pattern. 
10 

11 LABEL QUE ( — ) 

12 PURPOSE: fetch character from keyboard 

13 and place in keyboard queue. 

14 also jump to the subroutine at .QVEC 

15 keyboard uses COOO and .QUE. 

16 
1.7 
18 

19 

20 
21 
22 
23 
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0 ( MSG ) HEX 

1 

2 LABEL MSGO YSAVE STY, 0 SB LDA. XI STA, 

3 \ .MSGO OFF AND SB LOA, 

4 \ .MSGO SWAB OFF AND 88 LDY. 

5 XO STA, XO 1+ STY, 

6 0 SB LDY. 

7 XO )Y LOA. TAY. 

8 BEGIN. XO )Y LDA. 80 SB ORA, 

9 CURR 1- , Y STA. OEY, EQ 

10 UNTIL. 

11 XO )Y LDA, TAY, AO SB LDA. 

12 BEGIN. CURR ,Y STA. I NY, 50 SB CPY. EQ 

13 UNTIL, 

14 DEX. OEX. XI LOA, 0 SP) STA. 

15 YSAVE LDY. 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( DISP ) HEX 

1 

2 LABEL OISP YSAVE STY. 

3 0 SP) LDA, I NX , I NX, XSAVE STX, 

4 TAY. 1 SB LDA, UPDATE ,Y STA, 

5 \ .DISPO .Y LDA. XO STA. 

6 \ .DISP1 , Y LDA. XO 1+ STA. 

7 \ .SCRO ,Y LDA. XI STA. 

8 \ . SCR1 , Y LDA. XI 1+ STA. 

9 C001 STA, C055 STA, 

10 4F SB LDX, 27 SB LDY. 

11 BEGIN, 

12 CURR .X LDA. XI )Y STA, DEX, 

13 CURR .X LDA. XO )Y STA, DEX, DEY, 

14 CURR .X LDA, XI )Y STA, DEX. 

15 CURR ,X LDA. XO )Y STA, DEX. DEY, MI 

16 UNTIL, 

17 CLIN LDA. XSAVE LDX. YSAVE LDY. TNEXT, 

18 

19 

20 
21 
22 
23 

155 

0 ( AUXIL ) HEX 

1 

2 LABEL AUXIL YSAVE STY. 

3 XSAVE STX. 0 SB LDX. 

4 BEGIN. UPDATE .X LDA. NE 

5 IF, 0 SB LDA, UPDATE .X STA. 

6 \ .SCRO .X LDA. XO STA. 

7 \ . SCR1 ,X LDA. XO 1* STA. 

8 \ .DISPO ,X LDA. XI STA. 

9 \ .DISP1 ,X LDA. XI 1+ STA. 



0 LABEL MSGO ( — 0 ) 

1 PURPOSE: puts signon message in CURR. 

2 places a zero on the stack, and then 

3 executes DISP (next word in dictionary) 

4 

5 save y-reg. set XI to zero. 

6 store the address of .MSGO at XO . 

7 put length of .MSGO in y-reg. 

8 set high bit of each element of .MSGO 

9 and store in CURR (excluding count). 

10 put blanks after at the end of CURR. 

11 leaves a zero on the stack. 

12 ... 

13 

14 

15 

16 

17 

18 NOTE: next word (diso) is executed 

19 Immediately after this word. 

20 
21 
22 
23 



0 LABEL DISP ( n — ) 

1 PURPOSE: distribute text in CURR for 

2 display. 

3 

4 clear keyboard buffer, set soft switch 

5 (C05S). 

6 save x-reg . 

7 put stack element in y-reg. 

8 store 1 in UPDATE array. 

9 put .DISP element into XO. 

10 put .SCRO element into XI . 

11 set x-reg for 79 (S4f) columns. 

12 set y-reg for 39 (S27) columns. 

13 take every other element in CURR and 

14 store in position pointed to by .DISP, 

15 and the other elements and store into 

16 the position pointed to by .SCRO. 

17 load a-reg with CLIN. 

18 restore x-reg. 

19 

20 
21 
22 
23 

0 LABEL AUXIL ( — ) 

1 PURPOSE: update screen/display elements. 

2 

3 save x-reg, load x-reg with zero. 

4 if an element needs updating (UPDATE 

5 array) then clear UPDATE element, 

6 store .SCRO element in XO and .DISPO 

7 element in XI . 

8 attend to modem if necessary, waiting 

9 for C019 eliminates screen flicker. 




4 , 806,916 



123 



124 



10 


BEGIN. C01 9 


LDA. 


PL 


10 


clear keyboard strobe, set soft 


1 1 


UNTIL. ROM? 


LDA. 


NE 


11 


switch (C054). 


12 


IF. COOO STA, 




12 


set y-reg to 39 (S27). 


13 


ELSE, C001 


LDA. 




13 


move elements from .SCRO to .DISPO. 


14 


ENDIF, C0S4 


STA. 


27 RB LDY. 


14 


attend to modem if necessary, waiting 


15 


BEGIN. 






15 


for C019 eliminates screen flicker. 


16 


XO ) Y LDA. 


XI )Y 


STA. DEY. 


16 


restore x-reg. 


17 


XO ) Y LDA, 


XI )Y 


STA. DEY. 


17 




18 


XO ) Y LDA. 


XI )Y 


STA, DEY. 


18 




19 


XO >Y LDA, 


XI )Y 


STA. DEY. MI 


19 




20 


UNTIL. 






20 




21 


ENDIF. I NX, 


18 RB 


CPX, EQ 


21 




22 


UNTIL, XSAVE 


LDX. YSAVE LOY, TNEXT. 


22 




23 








23 
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0 ( LEXLEN ROM? ) HEX 


0 


LABEL LEXLEN ( — n ) 


1 


1 


PURPOSE: put length of search pattern 


2 LABEL LEXLEN - DEX. DEX. 


2 


onto the stack. 



3 0 RB IDA, 1 SP) STA. 3 forth equivalent : LEXLEN PATT C9 ; 

4 PATT LDA, 0 SP) STA, TNEXT, 4 



5 

6 LABEL ROM? DEX, DEX, 

7 ROM? LDA. 0 SP) STA. 

8 ROM? 1* LDA. 1 SP) STA. 

9 TNEXT, 

10 



11 

12 



13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 < SETDISP CLEAR SIGNON FLUSH ) HEX 

1 

2 LABEL SETDISP 

3 C001 STA, C0S1 LOA. C054 LDA. 

4 COOD STA. COOF STA. TNEXT. 

5 



6 T: CLEAR CURR 50 AO FILL 

7 DO I DISP LOOP AUXIL : 

8 

9 T: SIGNON MSGO 18 1 CLEAR : 
10 

11 ( FLUSHES KEYBOARO BUFFER ) 

12 T: FLUSH 

13 0 CHAR TO 

14 QIN QOUT TO 

15 0 C010 C! ; 

16 

17 

18 

19 

20 



5 LABEL ROM? ( — n > 

6 PURPOSE: the returned value is used to 

7 determine whether the disk version or 

8 the rom version of Swyft is being 

9 used: different FRAGMENTS are used 

10 depending on the version. 

11 the vaLue is zero if using the disk 

12 version. 

13 forth equivalent : ROM? ROM? C3 ; 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL SETOISP ( — ) 

1 PURPOSE: edjust display switches. 

2 

3 COOD 80 column display on 

4 COOF alternate character set on 

5 C051 text mode on 

6 C054 page 2 off, main memory 

7 

8 T: CLEAR (a b -- ) 

9 PURPOSE: clear screen lines a to b-1 . 

10 

11 T: SIGNON ( --) 

12 PURPOSE: clear screen, display message. 

13 

14 T: FLUSH ( — ) 

15 PURPOSE: flush Swyft (CHAR, QOUT. 

16 QIN) and Apple (C010) keyboard buffers. 

17 

18 

19 

20 




21 

22 

23 
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4,806,916 



126 



21 
22 
23 

scr 8 1 SB 

0 ( . 40C0L .MON ABOOT ) HEX ;S 0 

1 1 

2 FRAG . 40C0L . 2 

3 C0S1 LDA. COOE STA. 3 

4 C0S6 LOA. COOC STA. 4 

5 C0S4 LDA. COOO STA, 5 

6 FO SB LDA, 36 STA. 6 

7 FOIB LDA. 37 STA. 7 

8 FF SB LDA. 32 STA. 8 

9 0 MB LDA. 24 STA. 25 STA, RTS. 9 

10 10 

11 LABEL ABOOT \ .40C0L JSR, 11 

12 0 BB LDA. 3F4 STA. 39E STA, 3E0 JMP. 12 

13 13 

14 14 

15 15 

16 16 

17 17 

18 18 

19 19 

20 20 

21 21 

22 22 

23 23 

159 

0 ( .MON ) HEX ;S 0 

1 1 

2 ( copy text & variables to main ran ) 2 

3 FRAG .MON \ .40C0L JSR. FFF8 LDA. EQ 3 

4 IF. 3C STA, 3D STA. 42 STA. 43 STA. 4 

5 EBOT LDA. 3E STA. 5 

6 EBOT 1* LDA, 3F STA. 6 

7 CLC. C31 1 JSR. 7 

8 BEOT LDA. 3C STA. 42 STA. 8 

9 BEOT 1+ LDA. 30 STA, 43 STA. 9 

10 FF LDA. 3E STA. 10 

11 BF BB LDA, 3F STA. 11 

12 CLC. C31 1 JSR. 12 

13 ENDIF. <MON> JMP, 13 

14 14 

15 • 15 

16 • 16 

17 17 

18 18 

19 19 

20 20 

21 21 

22 22 

23 23 
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0 0 

1 1 

2 - 2 

3 3 

4 4 
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5 

6 

7 

8 

9 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

16 2 , 3 

0 ( <SCR> ) HEX 

1 

2 FRAG .SCR 0 #B LDX. 

3 BEGIN. 27 #8 LDY, 

4 \ .DISPO ,X LDA. XO STA. 

5 \ .DISPO 1+ .X LOA. XI STA. 

6 \ . DISP1 ,X LDA. XO 1* STA. 

7 \ .0ISP1 1+ .X LDA. XI 1* STA. 

8 BEGIN. XI )Y LDA. XO )Y STA. DEY. 

9 XI ) Y LDA. XO )Y STA. DEY. MI 

10 UNTIL. I NX, 17 4B CPX. EQ 

11 UNTIL. RTS. 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



5 

6 

7 

8 

9 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG .SCR 

1 PURPOSE: from XI to XO. move 40 bytes 

2 at a time, for 24 Lines of the screen 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( SCROLL > HEX 0 

1 1 

2 LABEL SCROLL -YSAVE STY. 2 



3 


XSAVE STX, C 


) 48 


LDY. 




3 


4 


CLIN DEC, TOP INC. EQ 




4 


5 


IF. TOP 1* INC. : 


ENDIF, 




5 


6 


BEGIN. WNDO 


1+ .' 


Y LDA. 


WNDO .Y STA. 


6 


7 


WND1 1+ , Y 


LDA. 


WND1 


, Y STA, 


7 


8 


WND2 1+ , Y 


LDA. 


WN02 


.Y STA, 


8 


9 


WND3 1+ ,Y 


LDA, 


WND3 


, Y STA. 


9 


10 


INY, 17 4B 


CPY . 


EQ 




10 


1 1 


UNTIL. C001 


STA, 






11 


12 


C055 STA. \ 


.SCR 


JSR. 




12 


13 


BEGIN. CO 19 


LDA. 


PL UNTIL. 


13 


14 


C054 LDA, \ 


■ SCR 


JSR. 




14 


15 


XSAVE LDX, YSAVE 


LDY. 


TNEXT. 


15 



LABEL SCROLL 

PURPOSE: scroLL the text up if you are 
on the Last character of the dispLay 
window. 




129 
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16 

17 

18 

19 

20 
21 
22 
23 
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0 ( .ON/OFF .ON ON OFF ) HEX 

1 FRAG .ON/OFF YPOS LDY, 

2 \ .OISPO . Y LDA, XO STA. 

3 \ .DISP1 , Y LDA, XO 1+ STA. 

4 BEGIN, C01 9 LDA. PL 

5 UNTIL. XPOS LDY, BANK LDA. EQ 

6 IF, C001 STA. COS5 STA. 

7 ELSE. ROM? LOA. NE 

8 IF. COOO STA, ELSE. C001 LDA. ENOIF, 

9 C0S4 STA. ENDIF, RTS. 

10 

11 FRAG .ON YSAVE LDY. 

12 LABEL ON YSAVE STY. \ .ON/OFF JSR. 

13 XO )Y LDA. OFF 8B CMP. NE 

14 IF. SAVECHAR STA. OFF 8B LDA. 

15 XO )Y STA. ENDIF. 

16 ROM? LDA. NE 

17 IF. COOO STA. ELSE. C001 LDA, ENDIF. 

18 C054 STA. YSAVE LDY. TNEXT. 

19 

20 LABEL OFF YSAVE STY. \ .ON/OFF JSR, 

21 SAVECHAR LDA. XO )Y STA, ROM? LDA. NE 

22 IF, COOO STA. ELSE. C001 LDA. ENDIF. 

23 C054 STA, YSAVE LDY. TNEXT. 
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0 ( <CURS0R> ) HEX 

1 

2 FRAG .CURSOR - XO STA, XO 1+ STY. 

3 18 88 LDY, 

4 BEGIN, DEY, 

5 XO LDA. WNDO .Y CMP, 

6 XO 1+ LDA. WND1 .Y SBC, CS 

7 UNTIL. NE 

8 IF, XO LDA. GAP SBC. SEC, 

9 ELSE. XO LDA. 

10 ENOIF, WNDO .Y SBC. YPOS STY. 

11 .A LSR. XPOS STA. 0 SB LDA. 0 8B ADC, 

12 BANK STA, BLO LDA. CTR STA. 

13 BLO 1+ LDA. CTR 1+ STA. RTS, 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG .ON/OFF ( — ) 

1 PURPOSE: calculates cursor position. 

2 

3 XO-address of beginning of display line 

4 picks up characters from the modem 

5 placing them into the modem que 

6 regY-YPOS 

7 sets the proper ram video bank 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 FRAG ON ( -- > 

1 PURPOSE: save Y-reg before doing .CN 

2 

3 FRAG .ON ( — ) 

4 PURPOSE: display cursor on screen. 

5 

6 do the following if the character on 

7 the screen is not a del character: 

8 put del character on screen (into ram) 

9 (little checkerboard). 

10 saving current character in SAVECHAR 

11 turn regular ram back on. 

12 

13 FRAG OFF { — ) 

14 PURPOSE: turn cursor off. 

15 

16 put character on screen (into ram) 

17 turn regular ram back on , 

18 

19 

20 
21 
22 
23 
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0 ( RENCUR ) HEX 

1 LABEL RENCUR YSAVE STY, BEOT LDA, 

2 BEOT 1+ LDY, \ .CURSOR JSR. SEC, 

3 WNDO , Y LOA, BEOT SBC. X2 STA, SEC. 

4 WND1 . Y LOA, BEOT 1+ SBC. X2 ORA. EQ 

5 IF, EOS 1* LDA, XI 1+ STA. 0 BB LDY. 

6 EOS LDA. EQ IF, XI 1+ DEC. ENDIF. 

7 1 MB SBC. XI STA. XI )Y LDA. 

8 20 BB CMP. CS 

9 IF. YPOS LDY. YPOS DEC, SEC. 

10 EOS LDA. WNDO 1- ,Y SBC. 

11 .A LSR. XPOS STA. 0 BB LDA, 0 #8 ADC, 

1 2 BANK STA. 

13 ENDIF. ENDIF. 0 BB LDA. NARROW 1* STA. 

14 NARROW STA, XPOS LDY. W/2 CPY. CS 

15 IF. XPOS STA. YPOS INC. ENDIF. 

16 BEOT LDA. YPOS LDY. WNOO ,Y CMP. EQ 

17 IF, BEOT 1+ LDA. WND1 .Y CMP. EQ 

18 IF, BEGIN. WNDO 1- ,Y LDA, 

19 WNDO , Y CMP. NE IF. \ .ON JMP. ENDIF. 

20 WND1 , Y LDA. WND1 1- ,Y CMP. NE 

21 IF. \ .ON JMP. ENOIF, DEY. YPOS DEC. 

22 AGAIN. 

23 ENDIF, ENDIF. \ .ON JMP. 
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0 ( LEXCUR ) HEX 

1 

2 LABEL LEXCUR - YSAVE STY. 

3 0 BB LDA. LOCAL 1 DUP 1+ STA. STA. 

4 OFF BB LDA. NARROW DUP U STA. STA. 

5 EOS 1+ LDY. EOS LDA. EQ 

6 IF, DEY. ENDIF, 0 BB SBC. 

7 \ .CURSOR JSR. 

8 0 88 LDY. XO }Y LDA, ft BB CMP. EQ 

9 IF, XO 1* DEC. DEY. XO )Y LDA. 



10 


XO 1+ INC, 20 BB CMP, CS 


11 


IF, SEC. YPOS LDY. NE 




12 


IF. WNOO ,Y LDA. DEY. 


WNDO .Y SBC. 


13 


PHA, SEC, 




14 


WND1 1+ ,Y LDA. WND1 


.Y SBC. 


15 


OFE BB AND. NE 




16 


IF. PLA. CLC. GAP SBC. PHA. ENDIF. 


17 


PLA, WIDE CMP. NE 




18 


IF. YPOS STY. .A LSR. 


XPOS STA. 


19 


0 BB LDA, 0 BB ADC. 


BANK STA. 


20 


ENDIF, ENDIF, ENDIF. ENDIF, 


21 


\ .ON JMP. 




22 






23 
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0 

1 

2 

3 

4 

5 

6 

7 

8 
9 



0 FRAG .CURSOR ( -- ) 

1 PURPOSE: calculates cursor position 

2 given address in regs A.Y. 

3 

4 output: 

5 XO«address 

6 YPOS-line number 

7 XPOS^column number divided by 2 

8 BANK-column number (even or odd) 

9 CTR-blinking rate counter value (8L0) 
10 

11 looks in window table for entry that 

12 is less than or equal to that address 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 LABEL RENCUR ( — ) 

1 PURPOSE: put a "fat" cursor on screen. 

2 "Fat" means a checkerboard on character 

3 and a highlight to the left. 

4 

5 calculates cursor position from BEOT 

6 if cursor is at beginning of line 

7 look at last character in selection 

8 if it isn't a control character 

9 place the blinker on the line above 

10 where the next character will go 

11 if it is a control character 

12 place the blinker at the beginning 

13 of the next line 

14 set LEXXED to zero: fat cursor 

15 if cursor is in last display position 

16 place blinker at beginning next line 

17 »» *** why isn't BANK set? *** «« 

18 if cursor is at beginning of line 

19 and just follows an implicit page brk 

20 then: place the blinker at the 

21 implicit page break, in the first cell 

22 
23 

0 LABEL LEXCUR ( — ) 

1 PURPOSE: put a "thin" cursor on the 

2 character. "Thin" means a checkerboard 

3 and a highlight alternate on the same 

4 character. 

5 

6 set LEXXED to -1 : thin cursor 

7 calculate cursor position from EOS-1 

8 if character is an explicit page break 

9 and previous character is normal 




133 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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10 and not first line in display 

11 and previous line isn't full 

12 calculate XPOS by subtracting 

13 low order bytes in window table 

14 if previous line starts below gap 

15 (high order difference isn't -2) 

16 then: subtract GAP from window diff 

17 (fixes "del" bug: 9Jan85) 

18 then: place blinker on previous line 

19 

20 
21 
22 
23 
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0 

1 

2 

3 

4 

5 

6 
7 
a 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( FLIP FLIP/TRIM SEL BOW ) HEX 

1 

2 ( STR LEN1 LEN2 ) 

3 T: FLIP 

4 ROT >R 2DUP + RS SWAP REVERSE 

5 RB OVER REVERSE 

6 R> + SWAP REVERSE ; 

7 

8 ( STR LEN1 LEN2 LEN3 ) 

9 T: FLIP/TRIM 

10 2DUP SWAP >R >R ♦ + OVER >R REVERSE 

11 R> OUP RB REVERSE 

12 R> ♦ R> REVERSE ; 

13 



14 LABEL SEL SEC, DEX. DEX. 

15 EOS LOA. BOS SBC, 0 SP) STA, 

16 EOS 1+ LOA. BOS 1+ SBC, 1 SP) STA. 

17 TNEXT, 

18 



19 LABEL BOW DEX. DEX, 

20 WNDO LDA, 0 SP) STA. 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 T: FLIP ( start lenl len2 -- ) 

1 PURPOSE: from start, swap the bytes so 

2 that the positions of lengthl and 

3 length2 are swapped. 

4 

5 T: FLIP/TRIM ( start lenl len2 len3 -- ) 

6 PURPOSE: store cut. 

7 

8 T: SEL ( -- EOS-BOS ) 

9 PURPOSE: returns length of selected 

10 text. 

11 , 

12 T: BOW i — add r ) 

13 PURPOSE: returns address of beginning of 

14 display window. 

15 

16 

17 

18 

19 

20 
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21 WN01 LDA. 1 SP) STA, TNEXT. 

22 



23 
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0 < 7BLINK 7LBLINK 7LEXXE0 ) HEX 

1 

2 T: 7BLINK -1 CTR +TO CTR 

3 IF CTR BL1 DIRTY 0- IF U2/ U2/ ENDIF - 

4 IF OFF ENDIF 

5 ELSE ON 

6 BLO DIRTY 0- IF U2/ U2/ ENDIF CTR TO 

7 ENDIF ; 

8 

9 T: 7LBLINK SEL 2 U< IF 7BLINK ENDIF • 

10 

11 T: 7LEXXED NARROW 

12 IF -1 BEOT *T0 EBOT 1- C8 BEOT C! 

13 -1 EOS +T0 -1 EBOT *T0 

14 -1 80S *T0 

15 0 NARROW TO 

16 ENDIF ; 

17 
IS 

19 

20 
21 
22 
23 
71 

0 ( .WRAP ) HEX 

1 

2 FRAG .WRAP SEC, WR LDA, YWRAP SBC. 

3 X5 STA. WR 1* LDA. 0 #8 SBC. 

4 X5 1 ♦ STA. YWRAP LDY. cr 8B LDA, 

5 BEGIN, X5 )Y CMP. CS 

6 IF. EQ IF, INY, ENDIF, 

7 TYA, YWRAP SBC. WC STA. EQ 

8 IF, WC INC. ENDIF, RTS, 

9 ENDIF. INY. MI 

10 UNTIL. 20 #B LDA. WIDE LDY, 

11 OEY. WR ) Y CMP, NE 

12 IF. INY. 

13 BEGIN. OEY. MI 

14 IF. WIDE LDA, WC STA. RTS. 

15 ENDIF. WR )Y CMP. EQ 

16 UNTIL. INY. WC STY. RTS. 

IT ENDIF. DEY, WR )Y CMP. EQ 

18 IF. WIOE LDA. WC STA. RTS. 

19 ENOIF. 

20 
21 
22 
23 
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0 C .WRAP ... WRAP 8MP ) HEX 

1 

2 WIDE LDY. WR-)Y CMP. EQ 

3 IF. DEY. DEY. 

4 BEGIN. DEY. MI 



22 

23 



0 T: 7BLINK ( - , bUnk Cur , or 

1 PURPOSE: toggl. for the cursor to make 

2 it blink. 

3 If th. t.xt is not dirty th.n blink th. 

4 cursor at 4 tim.s its normal speed 

5 decrement CTR. 

6 When it is BL1. turn blinker off 

7 when it is 0. turn blinker on 

8 and sat CTR to BLO. 

9 

10 T: 7LBLINK ( — ) 

11 PURPOSE: if less than two characters are 

12 selected, blink cursor. 

13 

14 T: 7LEXXED ( — ) 

15 PURPOSE: if LEXXED is true then move 

16 a character from EBOT 1- .cross gap to 

17 new BEOT. 

18 

19 

20 
21 
22 
23 

0 FRAG .WRAP ( — ) 

1 PURPOSE: given character at wrap 

2 address (WR) return wrap count (WC) 

3 for line. 

4 

5 X5+YWRAP initially equal to Y/R. 

6 UNTIL either a cr or ff or end of line 

7 if a cr or ff 

8 if a cr. increment count by one 

9 increment wrap count by count 

10 if wrap count is 0. increment to one 

11 exit 

12 else increment count. 

13 if there are 1 or 2 blanks at end of 

14 line then wrap tha last word by 

15 dacremanting until a blank is found, 

16 incrament to first character of word. 

17 and axit. 

18 if the line is full of blanks or 

19 characters then do not wrap line 

20 (ie. WC set equal to WIDE). 

21 
22 
23 



0 LABEL WRAP ( — ) 

1 PURPOSE: call .WRAP. 

2 

3 FRAG BMP ( — ) 

4 PURPOSE: add tha wrap count to the wrap 
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5 IF, HIDE LDA, WC STA. RTS, 

6 ENDIF, WR ) Y CMP. EQ - 

7 UNTIL, INY, WC STY, RTS, 

8 ENOIF, WIDE LDA. WC STA, RTS. 

9 

10 LABEL WRAP YSAVE STY. 

11 \ .WRAP JSR, YSAVE LDY, TNEXT , 

12 

13 FRAG BMP CLC. 

14 WC LDA. WR ADC. WR STA. CS 

15 IF, WR 1+ INC, ENDIF. 

16 EBOT CMP. WR 1+ LDA. EBOT 1+ SBC. NC 

17 IF. RTS, ENOIF, 

18 WR LDA, BEOT CMP. 

19 WR 1+ LDA. BEOT 1+ SBC, NC 

20 IF. WR LDA. GAP ADC. WR STA. 

21 WR 1+ LDA. GAP 1+ ADC. WR 1+ STA. 

22 ENDIF. RTS. 

23 
173 

0 ( LOCLIN ) HEX 

1 

2 LABEL LOCLIN YSAVE STY. 

3 0 SP) LDA. XO STA, 

4 1 SP) LDA, XO 1+ STA. INX, INX, 

5 PAGES LDY. INY. 

6 BEGIN. DEY. 

7 XO LDA. PGS2 ,Y CMP, 

8 XO 1+ LDA, PGS3 ,Y SBC. CS 

9 UNTIL, PAGE# STY. 

10 PGSO ,Y LDA, WR STA. 

11 PGS1 , Y LDA. WR 1+ STA. 

12 XO LDA. PGS2 .Y SBC. LINREL STA. 

13 OFF #B LDY. X3 STY. 

14 BEGIN. X3 INC. X3 LDA, LINREL CMP. NE 

15 IF. \ .WRAP JSR. \ BMP JSR. CLC. 

16 COOO LDA. MI IF, \ .QUE JSR, ENDIF. 

17 ENDIF. CS 

18 UNTIL, 

19 WR LDA. LINADR STA. 

20 WR 1* LDA. LINADR 1* STA. 

21 YSAVE LDY, TNEXT, 

22 
23 
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5 address, if EBOT < wrap address < BEOT 

6 then also add the GAP to the wrap 

7 address. 

8 

9 add wrap count to wrap address. 

10 if the new wrap address exceeds EBOT 

11 then exit. 

12 otherwise if new wrap address is Less 

13 than BEOT 

14 then add gap to the new wrap address. 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL 2. LOCLIN ( line-number — ) 

1 PURPOSE: given cumulative Line number 

2 return with LINREL. LINADR. and PAGE# 

3 for that lino-number. 

4 

5 store Line# in XO. 

6 store total # of pagqs in Y-reg. 

7 search backwards in page table from 

8 y-reg 1+ until the page is found for 

9 the line address in XO. 

10 store this page# (y-reg) in PAGE#. 

11 store the address of the page In WR. 

12 calculate offset within page (LINREL). 

13 .WRAP this page until line LINREL. 

14 BMPing across gap if necessary. 

15 attend to key queue if necessary. 

16 store wrap address for the beginning of 

17 the lino containing the line-number 

18 in LINADR. 

19 

20 
21 
22 
23 
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0 ( LOCCHR ) HEX 

1 

2 LABEL LOCCHR -YSAVE STY. 

3 0 SP) LDA. XO STA. 

4 1 SP) LDA. XO 1* STA, INX. INX, 

5 PAGES LDY. INY. 

6 BEGIN, DEY. 

7 XO LDA, PGSO ,Y CMP. 

8 XO 1+ LDA. PGS1 ,Y SBC. CS 



9 


UNTIL. 




10 


PGSO .Y LDA. 


WR STA. 


11 


PGS1 ,Y LDA. 


WR 1+ STA, 


12 


PGS2 ,Y LDA. 


LINE# STA. 


13 


PGS3 .Y LDA. 


LINE# 1+ STA, 


14 


PAGE# STY, 0 


#8 LDY, X3 STY. 


15 


BEGIN. X3 INC. \ .WRAP JSR. 



0 LABEL 2. LOCCHR ( character-address — ) 

1 PURPOSE: given an address for a 

2 character in text this word then 

3 returns PAGE#, LINADR. LINREL and LINE# 

4 where the address was found. 

5 

6 store address in XO. • 

7 load y-reg with total # of pages (PAGES) 

8 search backwards in page array for wrap 

9 address that contains the value in XO. 

10 when it is found then update WR and 

11 LINE# from page table. 

12 store y-reg in PAGE#. 

13 wrap lines and bump across gap if 

14 necessary. 

15 update LINADR. LINREL. LINE#. 
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16 C000 LDA. MI IF. \ .QUE JSR. ENOIF, 


16 




17 WR LDA. X2 STA. 


17 




18 WR 1+ LDA. X2 1* STA. 


18 




19 \ BMP JSR, SEC. 


19 




20 WR LOA. XO SBC. X4 STA. 


20 




21 WR 1+ LOA. XO 1+ SBC, CS 


21 




22 UNTIL. 


22 




23 


23 
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0 


( LOCCHR ) HEX 


0 


1 




1 


2 


X4 ORA. EQ 


2 


3 


IF. WR LDA. WR 1+ LDY. 


3 


4 


ELSE. X2 LDA. X2 1+ LDY. X3 DEC. 


4 


5 


ENOIF. 


5 


6 


LINAOR STA. LINADR 1+ STY. 


6 


7 


X3 LOA. LINREL STA. CLC. 


7 


8 


LINE# ADC. LINE# STA. CS 


8 


9 


IF. LINE# 1+ INC, ENOIF. 


9 


10 


YSAVE LDY. TNEXT , 


10 


11 




11 


12 




12 


13 




13 


14 




14 


15 




15 


16 




16 


17 




17 


18 




18 


19 




19 


20 




20 


21 




21 


22 




22 


23 




23 
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0 


( WC0 WR9 WR! REWINDOW ) HEX 


0 


LABEL WC8 ( — n ) 


1 






1 


PURPOSE: return the wrap count. 


2 


LABEL WC0 DEX. DEX. 




2 




. 3 


WC LDA. 0 SP) STA. 




3 


LABEL WR0 ( — n ) 


4 


0 #8 LOA. 1 SP) STA. 


TNEXT. 


4 


PURPOSE: return the wrap address. 


5 






S 




6 


LABEL WR8 DEX, DEX, 




6 


LABEL WR! ( address — ) 


7 


WR LDA. 0 SP) STA. 




7 


PURPOSE: store the address from the 


8 


WR 1+ LDA. 1 SP) STA. 


TNEXT. 


8 


stack Into the wrap address. 


9 






9 




10 


LABEL WR! 0 SP) LDA. 


WR STA, 


10 


LABEL REWINDOW ( address -- ) 


11 


1 SP) LDA. WR 1+ STA. 




11 


PURPOSE: initialize the window table. 


12 


I NX, I NX, TNEXT, 




12 


set up first line on screen with 


13 






13 


address on stack (WND0.WND1 with the 


14 


LABEL REWINDOW YSAVE 


STY. 


14 


Y-reg - 0). 


15 


0 SP) LDA. WNOO STA. 




15 


put zeroes into rest of the WND0.WN01 


16 


1 SP) LDA, WN01 STA. 


I NX. I NX, 


16 


elements (Y-reg decrementing from SI 7 


17 


0 #8 LDA, OLIN STA. 


17 #8 LDY. 


17 


to 1). 


18 


BEGIN. WNDO ,Y STA. WN01 ,Y STA. 


18 


clear OLIN. 


19 


DEY. EQ 




19 




20 


UNTIL, YSAVE LDY. TNEXT. 


20 




21 






21 




22 






22 




23 






23 
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0 ( FIXEND ? SCROLL ENOSCREEN? AFTERGAP > 

1 HEX 

2 

3 T: FIXENO 

4 BEOT EOT - 

5 IF -1 BEOT +TO 1C BEOT C! ENDIF ; 

6 

7 T: ? SCROLL CLIN 18 - 

8 IF WRS EOT U< DUP 0= 

9 IF DROP NARROW 0- ENDIF 

10 IF AUXIL SCROLL ENDIF ENDIF ; 

11 

12 T: ENDSCREEN? 

13 WRS BEOT - IF ? SC ROLL ENDIF ; 

14 

15 LABEL AFTERGAP YSAVE STY, 

16 CLIN LDA, 0 SB SBC, OLIN STA. 

17 DEX. DEX. 0 SB LDY, 17 SB CMP, NE 

18 IF. DEY. ENDIF. 

19 0 SP> STY, 1 SP) STY, YSAVE LDY. 

20 TNEXT, 

21 
22 
23 
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0 ( XYNEXT YNEXT STOP? ) HEX 

1 

2 FRAG XYNEXT XSAVE LDX, 

3 FRAG YNEXT YSAVE LDY, TNEXT, 

4 :S 

5 LABEL STOP? 

6 DEX, DEX. 0 SB LDA, 

7 0 SP) STA, 1 SP) STA. 

8 C061 LDA, C062 ORA, MI 

9 IF, TNEXT, ENDIF. 

10 0 SP) DEC. 1 SP) DEC. 

11 TEOS 1* LDA. WR 1+ CMP. 

12 TEOS LDA, WR SBC. NC 

13 IF. TNEXT, ENDIF. 

14 MQIN LOA, MQOUT CMP. NE 

15 IF. TNEXT. ENDIF, 

16 CHAR LDA. dal 80 OR SB CMP. EO 

17 IF. TNEXT. ENDIF. 

18 CHAR LDA. tab 80 OR SB CMP, CS 

19 IF. LEXXING LDA, EQ 

20 IF. TNEXT. ENDIF. 

21 ENDIF, 

22 0 SP) INC. 1 SP) INC. 

23 TNEXT, 

179 

0 ( SAVEPAGE NEXTPAGE ) HEX 

1 

2 LABEL SAVEPAGE ( — ) YSAVE STY. 

3 LCT LDY. EQ 

4 IF. PCT LDY. 

5 WR LDA, PGSO ,Y STA, 

6 WR 1+ LDA, PGS1 .Y STA. 

7 LCTR LDA. PGS2 .Y STA, 

8 LCTR 1* LDA. PGS3 ,Y STA. 

9 ENDIF, YSAVE LDY. TNEXT. 



0 T: FIXEND ( — ) 

1 PURPOSE: if the last character of text 

2 was deleted then replace it with 

3 another form feed character. 

4 

5 T: ? SCROLL ( — ) 

6 PURPOSE: scroll the display. 

7 scroll one line up 

8 if the current line is 18 and 

9 if the wrap address < EOT or 

10 if wrap address ■ EOT and you did not 

11 lex to the end. 

12 

' 13 T: ENDSCREEN? ( -- ) 

14 PURPOSE: scroll display until wrap 

15 address equals the BEOT. 

16 

17 LABEL AFTERGAP ( — flag ) 

18 PURPOSE: is current line offscreen? 

19 set OLIN-CLIN-1 . 

20 if OLIN is not the last line then the 

21 flag is true. 

22 otherwise OLIN is the last line and the 

23 flag is false. 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL SAVEPAGE ( — ) 

1 PURPOSE: if the line count for the 'page 

2 (LCT) is zero then update a page in the 

3 page table. 

4 

5 INPUTS: LCT PCT WR LCTR 

6 OUTPUTS: PGSO PGS1 PGS2 PGS3 

7 

8 NOTE: previously called PAGEBOUND. 

9 
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10 

11 :S 

12 



13 


LABEL NEXTPAGE ( 


addr — 


pages ) 


14 


YSAVE STY, FF SB 


LDY. 




15 


BEGIN, 






16 


BEGIN. INY, 






17 


A00 )Y LDA, 


XO STA. 


0 SP) CMP. 


18 


BOO ) Y LDA. XO 


1+ STA, 


1 SP) SBC. 


19 


UNTIL. YO STY, 






20 


0 S8 LDY. XO ) Y 


LDX. ff 


SB CPX. EQ 


21 


UNTIL, 0 SB LDA. 


1 SP) STA. 


22 


YO LDA, 0 SP) STA. YSAVE 


LDY. TNEXT 


23 
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0 


( PAGEWRAP ) HEX ; 


; S 





1 

2 LABEL PAGEWRAP ( — > YSAVE STY, 

3 BEGIN, \ .WRAP JSR, 

4 LCT INC. CLC. WC LOA. NE 

5 IF, WR ADC, WR STA, CS 

6 IF. WR 1+ INC. ENDIF, ENOIF, 

7 0 SB LDY, WR )Y LDA, ff SB CMP, EQ 

8 IF, I NY, WR INC, CS 

9 IF. WR 1* INC. ENDIF. 

10 ELSE. LCT LDA. LONG CMP. EO 

11 IF. INY, ENDIF, 

12 ENDIF, OEY, EO 

13 UNTIL. 

14 PCT INC. CLC. LCT LDA, LCTR ADC. CS 

15 IF, LCTR 1+ INC, ENDIF. 

16 0 SB LDA, LCT STA. YSAVE LDY. TNEXT. 

17 

18 

19 

20 
21 
22 
23 
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0 ( NOTMATCH? ) HEX ;S 

1 

2 LABEL NOTMATCH? ( addr — flag ) 

3 XSAVE STX, YSAVE STY, OFF S8 LDY. 

4 SEC, 0 SB LDA. CUTPAGES SBC. TAX. 

5 DOO ,S LDA, 1 SP) CMP. EO 

6 IF. COO ,X LDA. 0 SP> CMP. EQ 

7 IF. INY, ENDIF. ENDIF. 

8 XSAVE LDX, 0 SP) STY. 1 SP) STY. 

9 YSAVE LDY, TNEXT. 

10 

11 LABEL FIXTABLE ( — ) YSAVE STY. 

12 SEC, 0 SB LDA, CUTPAGES SBC. TAY, 

13 SEC. LCTR LDA, COO ,Y SBC. XO STA. 

14 LCTR 1+ LDA. DOO .Y SBC. XO 1+ STA. 
•15 BEGIN. CLC. 

16 COO , Y LDA. XO ADC, COO ,Y STA. 

17 DOO , Y LDA. XO 1+ ADC. DOO ,Y STA. 

18 INY, EQ 

19 UNTIL, 

20 CLC. LINES LDA. XO ADC. LINES STA. 



10 

11 

12 

13 

14 ;S 

15 

16 LABEL NEXTPAGE ( addr -- paged > 

17 

18 this is part of Jonathan's routine to 

19 speed up the updating of the page table 

20 
21 
22 
23 



0 ; S LABEL PAGEWRAP 

1 
2 

3 

4 this is part of Jonathan's routine to 

5 speed up the updating of the page table 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 ; S LABEL NOTMATCH? 

1 

2 LABEL FIXTABLE 

3 

4 these are part of Jonathan's routine to 

5 speed up the updating of the page table 

6 

7 

8 
9 

10 

11 ' 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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21 


LINES 


1+ LDA. XO 1+ ADC. LINES 1+ 


STA. 


21 


22 


CLC. 


=CT LDA. CUTPAGES ADC, PAGES 


STA. 


22 


23 


YSAVE 


LDY, TNEXT. 




23 
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0 ( DOPAGING ) HEX ;S 0 

1 1 

2 T: DOPAGING - 2 

3 PRESET WRAPDONE 3 

4 IF BEOT NEXTPAGE OLDPAGE TO 4 

5 PAGES OLDPAGE - 1+ CUTPAGES TO S 

6 E00 AOO 6 

7 DO I OLDPAGE + 7 

8 I 100 + PAGES OLDPAGE - 1+ DUP >R - 8 

9 R> CMOVE 9 

10 100 +LOOP 10 

11 0 WRAPDONE TO 11 

12 END IF 12 

13 BEGIN WR9 BEOT U< 13 

14 WHILE SAVEPAGE PAGEWRAP 14 

1 5 REPEAT 1 5 

16 BEGIN STOP? IF EXIT ENDIF 16 

17 SAVEPAGE WR8 NOTMATCH? 17 

18 WHILE PAGEWRAP 18 

19 REPEAT FIXTABLE -1 WRAPDONE TO 19 

20 E00 AOO 20 

21 DO I PCT ♦ I 100 + CUTPAGES CMOVE 21 

22 100 +LOOP ; 22 

23 23 
183 

0 ( SAVEPAGE 70NPAGE > HEX 0 

1 1 

2 LABEL 70NPAGE OEX, DEX. 2 

3 YSAVE STY. 0 SB LDY, 3 

4 WC STY. WR ) Y LDA. ff BB CMP. EQ 4 

5 IF. INY. WC INC. S 

6 ELSE, LCT LDA. LONG CMP, EQ 6 

7 IF. INY, ENDIF. 7 

8 ENDIF, DEY, PAGEFLAG STY, 8 

9 0 SP) STY. 1 SP) STY. YSAVE LDY. 9 

10 TNEXT. 10 

11 11 

12 12 

13 13 

14 14 

15 15 

16 16 

17 17 

18 18 

19 19 

20 20 

21 21 

22 22 

23 23 



;S T: DOPAGING 

this is part of Jonathan's routine to 
speed up the updating of the page table 



LABEL 70NPAGE ( — flag ) 

PURPOSE: detect if currently on a page. 

false ■ first character is a formfeed 
or an implicit page break belongs 
sets the wrap count WC accordingly 
true ■ don’t change WC 

NOTE: PAGEFLAG retains value of flag. 
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0 ( 7MORETEXT LASTPAGE ) HEX 

1 

2 LABEL 7MORETEXT DEX, DEX, 

3 YSAVE STY. FF BB LDY. 

4 WR LDA, EOT CMP. 



0 LABEL 7MORETEXT ( — flag > 

1 PURPOSE: flag indicates if wrapping has 

2 reached the end of text. 

3 

4 if the wrap address >■ EOT then true 
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5 WR 1 + LDA, EOT 1+ SBC. CS 

6 IF. INY, ENDIF,. 

7 0 SP) STY, 1 SP) STY, YSAVE LDY, 

8 TNEXT, 

9 

10 LABEL LASTPAGE YSAVE STY, PCT LDY. 

11 OFF DB LDA. 

12 BEGIN. INY, NE 

13 WHILE. PGSO ,Y STA, PGS1 ,Y STA. 

14 PGS2 , Y STA, PGS3 ,Y STA, 

15 REPEAT, YSAVE LDY. TNEXT, 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( INCPAGES ) HEX ;S 

1 

2 ( endaddness Increase startpage — ) 

3 LABEL INCPAGES YSAVE STY. 0 SP) LDY. 

4 INX, I NX, 



5 


BEGIN. INY. 2 SP) LDA, PGSO 


, Y CMP. 


6 


3 SP) LDA, PGS1 .Y SBC. NC 




7 


IF. DEY, PCT STY. 0 8B LDA, 


LCT STA. 


8 


PGS2 .Y LDA. LCTR STA. 




9 


PGS3 .Y LDA. LCTR 1+ STA. 




10 


YSAVE LDY. INX. INX, INX. 


INX, 


11 


TNEXT, 




12 


ENDIF. CLC. 0 SP) LDA. PGSO 


,Y ADC. 


13 


PGSO , Y STA, WR STA, 




14 


1 SP) LDA. PGS1 , Y ADC. 




15 


PGS1 , Y STA. WR 1* STA. 




16 


AGAIN, 




17 






18 







5 

6 
7 



flag . 
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otherwise false flag. 



8 

9 LABEL LASTPAGE ( — ) 

10 PURPOSE: fills elements at the end of 

11 the page table with SFF. 

12 The value SFF is used by other words 

13 when scanning backwards from the end 

14 of the page table to find valid page 

15 table elements. 

16 

17 from PCT+1 to the end of the page table 

18 fill all page table elements with FF. 

19 

20 
21 
22 
23 



0 

1 

2 

3 

4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 



19 

20 
21 
22 
23 



19 

20 
21 
22 
23 
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0 ( <ENDF0RM> ENDFORM ) HEX 

1 

2 LABEL ENDFORM- YSAVE STY, 0LIN LDY. 

3 WND0 ,Y LDA. WR STA. 

4 WND1 ,Y LDA. WR 1+ STA. 

5 WN02 , Y LDA, LCT STA. 

6 WND3 ,Y LDA. PCT STA. 

7 TOP LDA. OLIN ADC. LCTR STA. 

8 TOP 1+ LDA. 0 8B ADC. LCTR 1+ STA. 

9 YSAVE LDY. 

10 

11 T: <ENDFORM> 

1 2 BEGIN 7MORETEXT 

13 WHILE SAVEPAGE 

14 70NPAGE IF WRAP ENDIF 

1 5 EN0WRAP DROP 



0 LABEL ENDFORM ( — ) 

1 PURPOSE: set up parameters then call 

2 <ENDFORM>. 

3 set up WR, LCT and PCT with 

4 values of the last line changed (OLIN) 

5 in window table (WNDO.1,2,3) and 

6 update LCTR. 

7 

8 NOTE: no TNEXT. executes <ENDF0RM> 

9 

10 T: <ENDFORM> ( -- ) 

11 PURPOSE: update page table by wrapping 

12 from the current line until the end of 

13 text or until interrupted by any key. 

14 

15 while there is still text to wrap 
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16 QUE THOROUGH? 0- 

17 IF 7BLINK STOP? IF EXIT ENDIF ENOIF 

18 REPEAT 0 THOROUGH? TO 

19 SAVEPAGE 

20 LCTR LINES TO PCT PAGES TO 

21 LASTPAGE ; 

22 
23 

187 

0 ( PREALIGN +ALI6N ) HEX 

1 

2 T: PREALIGN 80 WIDE - YWRAP TO 

3 WIDE U2/ W/2 TO BEOT EBOT - GAP TO 

4 BEOT EBOT 51 CMOVE 

5 0 LOT TO 0 LCTR TO 0 PCT TO 

6 -1 THOROUGH? TO BOT WR! ; 

7 

8 ( old-EBOT old-BOT -- ) 

9 T: +ALIGN PREALIGN 

10 SOT SWAP 1 INCPAGES <ENDFORM> ; 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 



21 



22 



23 
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16 update page table if first line. 

17 if not at a page break, wrap line. 

18 point WR to beginning of next line. 

19 if an interrupt event occurs exit 

20 unless desire to thoroughly update. 

21 update page table for last break. 

22 update LINES and PAGES. 

23 clear remainder of page table. 

0 T: PREALIGN ( — ) 

1 PURPOSE: prepare to update page table 

2 from the beginning of text. 

3 

4 initialize YWRAP. W/2, GAP, 

5 LCT, LCTR. PCT. LINES. PAGES. 

6 move $51 text elements to EBOT for 

7 wrapping. 

8 
9 

10 T: +ALIGN ( old-EeOT old-BOT — ) 

11 PURPOSE: update page table in minimum 

12 amount of time by adding offset to 

13 page table elements before gap. 

14 

15 set up for align (PREALIGN). 

16 calculate endaddress and increase. 

17 -1 will start INCPAGES at the beginning 

18 of the page table. 

19 add increase to early pages. 

20 wrap lines to end of text (<ENDF0RM>) . 

21 
22 
23 
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0 ( ENDWINOOW SETLINE ) HEX 

1 

2 LABEL ENDWINDGW EFLAG LDA . NE 

3 IF. WR LDA. EOW STA, 

4 WR 1+ LDA. EOW 1+ STA, 

5 ENDIF, TNEXT, 

6 

7 LABEL SETLINE INX. INX, 

8 YSAVE STY. 0 SP) LDY, 

9 WND0 , Y LDA. WR STA. 

10 WND1 , Y LDA. WR 1+ STA. 

11 WND2 ,Y LDA. LCT STA, 

12 WND3 ,Y LDA. PCT STA, 

13 17 #8 CPY, EQ 

14 IF, EOW LDA. 

15 ELSE. WNDO 1+ .Y LDA. 

16 ENDIF. SEC, WR SBC. WC STA. 

17 YSAVE LDY. TNEXT. 

18 

19 

20 
21 
22 
23 



0 T: ENDWINDOW ( — ) 

1 PURPOSE: set end of window (EOW) if 

2 necessary. 

3 set end of window (EOW) to 

4 the wrap address (WR) if EFLAG (end 

5 flag?) is true. 

6 

7 LABEL SETLINE ( line# — ) 

8 PURPOSE: updates WR. LCT, PCT. and WC 

9 from line# element in window table. 

10 if last line on screen update WC from 

11 EOW else from window table. 

12 

13 ««** bug **»» 

14 if a line contains gap 

15 WC will be set incorrectly 

16 

17 

18 

19 

20 
21 
22 
23 
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IRC 

0 ( FRESH SHOWLINE REFRESH ) HEX 

1 

2 T: SHOWLINE QUE 70NPAGE 

3 IF WRAP ADJUST TOBUFF 

4 ELSE SHOWPAGE 

5 END IF DISP QUE ENDWRAP ; 

6 

7 T: FRESH PRESET 

8 BEGIN CLIN 7UPDATE DROP 

9 SAVEPAGE CLIN SHOWLINE 

10 WHILE ? SC ROLL 

1 1 REPEAT 

12 1 EFLAG TO ENOSCREEN? 

13 AFTERGAP 

14 IF 18 CLIN 

15 DO I ? UPDATE 

16 IF I SHOWLINE DROP 

17 ELSE 0 EFLAG TO LEAVE 

18 ENDIF 

19 LOOP 

20 ENOIF AUXIL ENDWINDOW ; 

21 

22 T: REFRESH OFF FRESH RENCUR ENOFORM ; 

23 
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0 ( REFRESHER SHOW RESHOW ) HEX 

1 

2 T: RESHOW OUP SETLINE 

3 DO I 7UPDATE DROP I SHOWLINE DROP 

4 LOOP AUXIL ; 

5 

6 T: SHOW 18 0 RESHOW WR8 EOW TO ; 

7 

8 ( # — | redisplay # lines before EOS ) 

9 T: REFRESHER 

10 OLIN SWAP - 1- OMAX OLIN TO 

11 EOS TEOS TO ENDFORM -1 TEOS TO 

12 FRESH ; 

13 

14 

15 

16 

17 

18 

19 

20 • 

21 

22 

23 

91 

0 ( TOPLINE NEWND ) HEX 

1 

2 LABEL TOPLINE 

3 LINREL LDA. WND2 STA. 

4 PAGE# LDA, WND3 STA. 

5 0 #B LDA. WND2 1* STA. 

6 0 #B LDA, WND3 1+ STA. 

7 TNEXT , 

8 

9 T: NEWND E# TOP U< TOP 17 + E# U< OR 



0 T: SHOWLINE ( — flag > display a line. 

1 trua-end of selection displayed. 

2 if line is not a page break or CR then 

3 wrap this line, adjust, move to buffer 

4 else construct pagebreak symbols. 

5 display the line, adjust page table. 

6 

7 T: FRESH ( -- ) refresh screen 

8 and update page table re: display. 

9 prepare text. CLIN. LCT PCT. LCTR 

10 BEGIN update element in window array. 

11 if page brk update page array. 

12 display line. 

13 WHILE eos not displayed 

14 if this is last line then scroll. 

15 REPEAT eos is last screen char scroll 

16 set OLIN to CLIN-1 

17 if not on last line. 

18 then for each line changed 

19 update window table, display line. 

20 update auxiliary half of video. 

21 update EOW if change beyond screen. 

22 
23 



0 T: REFRESH refresh screen, wrap pages. 

1 

2 T: RESHOW ( end-line# start-line# — ) 

3 PURPOSE: show each line and then show 

4 the auxilliary video. 

5 

6 T: SHOW ( — ) 

7 PURPOSE: display new screen using new 

8 parameters. 

9 updates LCT. PCT. and WR 

10 for each line on screen 

11 and until end of selection displayed 

12 update element in window array 

13 and display line or page break 

14 if end of selection is displayed 

15 and there are more lines to be shown 

16 show remaining lines on screen 

17 display auxiliary video 

18 store wrap address into EOW 

19 

20 T: REFRESHER ( n — ) 

21 PURPOSE: redisplay n lines before EOS. 

22 
23 

0 LABEL TOPLINE ( — ) 

1 PURPOSE: set beginning of window array 

2 to LINREL and PAGE# and zero next byte. 

3 

4 T: NEWND ( — ) 

5 PURPOSE: if new window then update 

6 parameters. 

7 if eos is not on screen or EOS - BOW 

8 then: set NUFLAG - true 

9 else: set NUFLAG - false 
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10 


EOS BOW - OR DUP NUFLAG 


TO 


10 


if entire selection won't fit 




11 


IF B# 17 ♦ E# U< 




11 


or will fit in less than half 


1 screen 


12 


IF E# OB - 




12 


put eos in middle of screen 




13 


ELSE E# B# 08 * U< 




13 


if entire select takes more than half 


14 


IF E# OB - ELSE B# ENDIF 


14 


set top line to be bos 




15 


ENDIF OMAX 




IS 


prevent negative or too large 


text 


16 


LINES 18 - OMAX UMIN 




16 


pointers 




17 


DUP LOCLIN TOP TO 




17 


update LINREL. LINAOR. PAGE#, 


and TOP 


18 


LINAOR REWINOOW 




18 


initialize window table with 




19 


TOPLINE 




19 


LINADR, LINREL. and PAGE# 




20 


ENOIF ; 




20 


NOTE1 : returns flag in NUFLAG, 


true - 


21 






21 


display must be changed. 




22 


;S 




22 


NOTE2 : E# and B# determine the 


new 


23 


LINES TOP 18 ♦ U< TOP 0- 


0- AND OR 


23 


selection. 
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0 ( NEWMARK OLDSHOW SHOWMARK ) HEX 

1 

2 ( lowside highside — ) 

3 T: NEWMARK E# OLDE# TO B# OLDBII TO 

4 DUP EOS - 

5 IF DROP 

6 ELSE DUP LOCCHR LINE# E# TO EOS TO 

7 ENDIF DUP BOS - 

8 IF OROP 

9 ELSE DUP EOS 1- - 

10 IF E# 1- 

11 ELSE DUP LOCCHR LINE# 

12 ENDIF 8# TO BOS TO 

13 ENDIF ; 

14 

15 T: OLDSHOW 

16 E# OLDE# UMAX TOP - 2 ♦ 1 8 UMIN 

17 B# OLDB# UMIN TOP - 2 - OMAX 

18 OVER I- UMIN RESHOW ; 

19 

20 ( lowside highside — ) 

21 T: SHOWMARK NEWMARK NEWND NUFLAG 

22 IF SHOW ELSE OLDSHOW ENDIF ; 

23 
193 

0 ( 7UNSCROLL ) HEX ;S 

1 

2 T: 7UNSCROLL 

3 E# TOP - DUP 18 U< 

4 IF DUP OLIN TO PRESET 

5 18 CLIN 

6 DO CLIN 7UPDATE DROP PAGEBOUND 

7 70NPAGE 

8 IF WRAP ENDIF 

9 ENDWRAP DROP 

10 7MORETEXT 0- 

11 IF PAGEBOUND 

12 CLIN 18-0- TOP AND 

13 IF -1 TOP +T0 TOP LOCLIN 

14 LINADR REWINDOW TOPLINE 

1 5 DROP 0 

16 ENDIF LEAVE 

17 ENDIF 

18 LOOP OFF 18 OVER 1- OMAX RESHOW 

19 WR8 EOT TO 

20 ENDIF DROP ; 



0 T: NEWMARK ( lowside highside -- ) 

1 PURPOSE: update E# and B# (the line 

2 numbers for the EOS and BOS). 

3 save E# and B# in OLDE# and OLDB#. 

4 if EOS or BOS are new then update E# and 

5 B# using LOCCHR (which updates LINREL, 

6 PAGE#. LINE#. E#) . 

7 

8 

9 T: OLDSHOW ( — ) 

10 PURPOSE: show all lines in which 

11 selection may have changed keeping old 

12 display window. 

13 

14 T: SHOWMARK ( lowside highside — ) 

15 PURPOSE: show selection on screen. 

16 update parameters (NEWMARK) for new 

17 selection. 

18 NUFLAG set true if EOS not on the 

19 current display (NEWND). 

20 if new text is to be displayed 

21 SHOW new selection. 

22 else show old selection (OLDSHOW) . 

23 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 • 

12 

13 

14 

15 

16 

17 

18 

19 

20 




21 

22 

23 
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21 

22 

23 
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0 
1 
2 

3 

4 

5 

6 
7 
a 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

195 

0 ( CUT ) HEX 

1 

2 T: CUT BOT >R BOS >R 

3 BOS LOCCHR LINES B8 TO 

4 BOC BOT BOC - 

5 BOS BOT - SEL FLIP/TRIM 

6 SEL BOC ♦ BOT - OUP BOS +TO 

7 OUP OEOS +TO 

8 OUP BOT +TO 

9 BOW ♦ REWINDOW 

10 BOT BOS U< BOS *TO 

11 1C BOT C! 

12 BOS 1* DUP EOS TO EBOT TO 

13 FIXENO 

14 R> R> +ALIGN 

15 B8 EB TO NEWND 

16 0 OLIN TO OFF FRESH RENCUR OFF 

17 FLUSH ; 

18 

19 

20 
21 
22 
23 
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0 ( DELETE ) HEX 

1 

2 T: DELETE EBOT BOT - EOT BEOT - ♦ 2 - 

3 IF EXIT ENDIF 

4 OEOS EOS 1* U< BOS OEOS U< AND 



0 T: CUT ( — ) 

1 PURPOSE: move salsction to cut buffer. 

2 refresh screen, update as quickly as 

3 possible. 

4 

5 save BOT and BOS for +ALIGN . 

6 update B8 since selection is deleted. 

7 delete old cut and move selection 

8 to the cut buffer. 

9 adjust for the old cut being removed: 

10 decrement BOS. OEOS. and BOT 

11 and update window table. 

12 if bos is not bot . decrement BOS. 

13 make sure bot has a form feed. 

14 update EOS and EBOT. 

15 put form feed at end of text. 

16 +align page table using BOT 1 BOS 

17 (initialize YWRAP. W/2. GAP. LCT. 

18 LCTR , PCT . LINES. PAGES). 

19 force TOP to be too largo for NEWND. 

20 set E8 to B8 

21 update selection related variables: 

22 LINREL. LINADR. PAGES. TCP 

23 cursor off. fresh screen, rer.cur. 

0 T: NIBBLE ( — ) 

1 PURPOSE: delete one character 

2 

3 operate on one character only 

4 if at beginning of text then move up 

5 one character like creeper 

6 else (not at beginning) 

7 if narrow cursor and not at end of 

8 text then (remove char from right) 

9 delete character if not at end 

10 update BEOT if not at and 

11 update screen 

12 else (fat cursor) so move 1 character 

13 to the left and 

14 if at end of screen then display new 

15 put form feed at end of text (FIXEND) 

16 and refresh screen 

17 if OEOS is anywhere within gap, set 

18 OEOS to BOS 

19 

20 
21 
22 
23 



0 T: CREEPDOWN 

1 PURPOSE: copy char, update BEOT. EBOT 

2 

3 T: DELETE ( — ) 

4 PURPOSE: delete character or selection 
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5 IF BOS OEOS TO ENDIF 

6 BOS 1+ EOS - 

7 IF CUT 

8 ELSE BOT 80S - 

9 IF BEOT C8 EBOT C! 1 EOS ♦TO 

10 1 BOS +TO 1 BEOT +TO 1 EBOT ♦TO 

11 OFF FRESH LEXCUR ENDFORM 

12 ELSE NARROW EOT BEOT - 0- AND 

13 IF EOT BEOT - 0- 

14 IF BEOT C8 BOS C! ENOIF 

15 BEOT EOT - IF 1 BEOT +T0 ENDIF 

16 OFF FRESH LEXCUR ENDFORM 

17 ELSE -1 EOS +T0 -1 EBOT +T0 

18 -1 BOS +T0 EOS BOW - 

19 IF TOP OC - OMAX DUP TOP TO 

20 LOCLIN LINADR REWINDCW 

21 TOPLINE 

22 ENDIF FIXENO REFRESH 

23 ENOIF ENDIF ENDIF -1 DIRTY TO ; 

197 

0 < 7C0LLAPSE <ENTER> ENTER ) HEX 

1 

2 T: 7C0LLAPSE 1 SEL U< EXTENDED OR 

3 IF 0 OLIN TO EOS OEOS TO 

4 0 EXTENDED TO ENDIF : 

5 

6 T: <ENTER> EOS 100 + BEOT U< 

7 OVER 01 C - 0- PAGES OCA U< OR AND 

8 IF 7LEXXED 7C0LLAPSE 

9 LONG 4 U< 80 PAGES U< AND 

10 OVER 01 D - AND OVER 01C - OR 

11 IF -1 THOROUGH? TO ENDIF 

12 EOS C! 1 EOS +T0 1 EBOT +T0 

13 EOS 1- BOS TO 

14 FIXEND FRESH -1 DIRTY TO 

15 ELSE DROP BEEP 

1 6 ENDIF ; 

17 

18 T: ENTER 

19 OFF <ENTER> RENCUR OFF ENDFORM 

20 PAGES OCA U< 0- 

21 IF DELETE BEEP ENOIF ; 

22 
23 
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0 ( TAB ) HEX 

1 

2 T: TAB EOS 100 ♦ BEOT U< 

3 IF 7LEXXED 7 COLLAPSE 

4 XPOS 25 U< 

5 IF 5 XPOS 2* BANK + 

6 05 UM/MOD DROP - 

7 EOS OVER 20 FILL 

8 DUP EOS +T0 DUP EBOT +T0 

9 EOS 1- BOS TO FIXEND 

10 REFRESH -1 DIRTY TO 

11 PAGES OCA U< 0- 

12 IF EOS OVER - BOS TO 

13 DUP NEGATE EBOT +T0 



5 

6 exit if text is empty 

7 if a selection is made (ie, more than 

8 one character) then CUT 

9 else (operate on one character only) 

10 if at beginning of text then move up 

11 one character like creeper 

12 else (not at beginning) 

13 if narrow cursor and not at end of 

14 text then (remove char from right) 

15 delete character if not at end 

16 update BEOT if not at end 

17 update screen 

18 else (fat cursor) so move 1 character 

19 to the left and 

20 if at end of screen then display new 

21 put form feed at end of text (FIXEND) 

22 and refresh screen 

23 set dirty bit 

0 T: 7C0LLAPSE ( — ) 

1 PURPOSE: reset OEOS. 

2 if selection contains 1 or more 

3 characters or EXTENDED then set OLIN 

4 and EXTENDED to 0 and set OEOS to EOS. 

5 

6 T: <ENTER> ( char -- ) 

7 PURPOSE: enter character into text and 

8 the screen. 

9 if there is enough room for adding 

10 characters or new pages then 

11 7LEXXED. collapse selection. 

12 if less than 4 lines/page and more than 

13 S80 pages or page character and pages 

14 >- SCO then set THOROUGH? to true. 

15 place char at end of selection and 

16 move EOS and EBOT up one. 

17 set BOS to EOS-1 . 

18 make certain page char at and of text. 

19 FRESH screen. 

20 else (no room) ignore and beep. 

21 

22 T: ENTER ( char — ) 

23 PURPOSE: enter character to text. 



0 T: TAB ( — ) 

1 PURPOSE: add spaces to next tab stop. 

2 

3 if there is enough room then 

4 reset lexxed and OEOS states. 

5 if the horizontal position < $25 then 

6 calculate next tab position, add 

7 spaces to text, update EOS and EBOT. 

8 make certain a form feed is at the 

9 end of the text, refresh screen. 

10 else add a carriage return to the text, 

11 else (not enough room) beep. 

12 
13 
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14 DELETE BEEP ENDXF DROP 

15 ELSE ID ENTER 

16 ENDIF 

17 ELSE BEEP 

18 ENDIF ; 

19 

20 
21 
22 
23 



0 

1 

2 


( NEWPAGES ) HEX 


( old-EBOT old-BOT -- ) 


3 


T: NEWPAGES 


4 


FIXEND 


5 


♦ALIGN 


6 


PAGES OCA U< 0- 


7 


IF DELETE BEEP 


3 


ELSE EOS LOCCHR 


9 


LINE# E# TO NEWND 


10 


BOS OEOS TO 


11 


0 OLIN TO 


12 


OFF FRESH RENCUR OFF 


13 


-1 DIRTY TO 


14 


ENDIF ; 


15 




16 




17 




18 




19 




20 




21 




22 




23 
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200 




0 

1 

2 


( PASTE ) HEX 




T: PASTE 7 LEXXED BOC BOT - 


3 


IF BEEP EXIT ENDIF 




4 


EOS U2/ BOT BOC - U2/ 


♦ 80 ♦ 


5 


BEOT U2/ U< 




6 


IF 




7 


EOS BOS TO 




8 


BOC BOT BOC - >R EOS 


R9 CMOVE 


9 


R> DUP EOS +T0 EBOT 


♦TO 


10 


EBOT BOT NEWPAGES 




11 


ELSE 




12 


BOC BOT BOC - EBOT 


BOT - FLIP 


13 


EBOT BOT BOC - - BOS 


TO 


14 


7000 TOP TO 




15 


EBOT BOT BOC BOT TO 


NEWPAGES 


16 


BEEP 




17 


ENOIF FLUSH ; 




18 






19 






20 






21 






22 






23 







14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 T: NEWPAGES ( oLd-EBOT old-BOT — ) 

1 PURPOSE: update page table. 

2 

3 put form feed at end of text. 

4 redo page table. 

5 if there are not enough pages then 

6 delete selection. 

7 else display new selected area (NEWND) . 

8 update OEOS. 

9 force FRESH to begin at OLIN ■ 0. 

10 fat cursor. 

11 set dirty bit. 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 T: INSERT ( -- ) 

1 PURPOSE: move from cut buffer to EOS. 

2 

3 7LEXXED insures that LEXXED is 0. 

4 if enough room and there is something 

5 in the cut buffer then copy from cut 

6 buffer to EOS. update page table. 

7 else not enough room so actually move 

8 cut buffer to EOS by removing cut 

9 buffer entirely (FLIP), update page 

10 table and BOT. 

11 clear keyboard queue and strobe. 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( LEX REX [SEARCH] ) HEX 

1 

2 T: LEX EOS EBOT 1* U< 

3 IF SOT EBOT 1- 

4 EOS UMIN SEEK< 

5 ?OUP IF EXIT ENDIF 

6 ENDIF BEOT EOS BEOT U< 

7 IF EOT LEXLEN - 1+ 

8 ELSE EOS ENDIF SEEK< ; 

9 

10 T: REX EBOT EOS 1+ U< 

11 IF BEOT EOS 1- UMAX EOT SEEK> 

12 ?DUP IF EXIT ENDIF 

13 ENDIF EOS EBOT U< 

14 IF EOS 1- ELSE BOT ENOIF 

15 EBOT LEXLEN - 1+ SEEK> ; 

16 

17 T: [SEARCH] RESEEK 

18 IF EBOT EOS TO 0 RESEEK TO ENDIF 

19 XFLAG 1 - 

20 IF LEX ELSE REX ENOIF 

21 ?DUP 0- IF EBOT 1- ENDIF DUP 1+ 

22 OUE SHOWMARK ; 

23 
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0 ( LXX RXX REP ) HEX 

1 

2 T: LXX EOS EBOT 1* U< 

3 IF BOT EBOT 1- 

4 EOS 1- UMIN 

5 SEEK< ?DUP IF EXIT ENDIF 

6 ENDIF BEOT EOS BEOT U< 

7 IF EOT LEXLEN - 1+ 

8 ELSE EOS 1- ENOIF SEEK< ; 

9 

10 T: RXX EBOT EOS 1+ U< 

11 IF BEOT EOS UMAX EOT SEEK> 

12 ?DUP IF EXIT ENDIF 

13 ENDIF EOS EBOT U< 

14 IF EOS ELSE BOT ENDIF 

15 EBOT LEXLEN - 1* SEEK> ; 

16 

17 T: REP LEXLEN DUP 

18 IF DROP @K DROP XFLAG 1 = 

19 IF LXX ELSE RXX ENDIF 

20 ENDIF ?DUP 0- IF EBOT 1- ENOIF DUP 1* 

21 OUE SHOWMARK ; 

22 ;S 

23 -1 RESEEK TO 
203 

0 < SEARCH <SEARCH> ) HEX 

1 

2 LABEL <SEARCH> YSAVE STY, 

3 CHAR LDA, 7F SB AND, LRFLAG LDY. EG 

4 IF. PATT LDY, IF SB CPY. NE 

5 IF. INY, ENDIF, 

6 ENDIF. 

7 PATT STY. PATT ,Y STA. 0 SB LDY. 



0 T: LEX ( — addr | 0 ) 

1 PURPOSE: search Left for pattern. 

2 if EOS is in Lower partition then 

3 search backwards starting PATT 

4 beLow EBOT/EOS 1-. 

5 if pattern is found then exit. 

6 if not found search upper partition 

7 if EOS is in Lower partition 

8 then search entire upper partition. 

9 eLse search from EOS to BEOT. 

10 

11 T: REX ( -- addr | 0 ) 

12 PURPOSE: search right for PATTern. 

13 if not found search Lower partition. 

14 simitar to LEX. 

15 

16 T: [SEARCH] ( — > 

17 PURPOSE: search for character and 

18 dispLay (one character selected). 

19 in the current direction 

20 search until the pattern is found. 

21 if the pattern wasn't found 

22 put fat cursor at original selection. 

23 show screen with one char selected. 



0 T: LXX ( -- addr | 0 ) 

1 PURPOSE: repeat Left search (again). 

2 

3 false » searched all of text, not found 

4 same as LEX except that search starts 

5 with EOS-1 . 

6 

7 

8 T: RXX ( — addr | 0 ) 

9 PURPOSE: repeat right search (again). 

10 

11 false » searched all of text, not found 

12 same as REX except that search starts 

13 with EOS. 

14 

15 

16 T: REP ( -- ) 

17 PURPOSE: repeat search (again key). 

18 

19 discard the again keystroke 

20 search in same direction as before 

21 show one character selection 

22 
23 

0 LABEL <SEARCH> ( — ) 

1 PURPOSE: adds a character to pattern for 

2 searching. 

3 

4 goes to get a character to PATT. 

5 if there are already 32 chars in PATT 

6 then overwrite the last character. 

7 
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8 LRFLAG STY. YSAVE LDY, TNEXT , 

9 

10 T: SEARCH 

11 <SEARCH> 9K DROP [SEARCH] ; 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( DEL EXPANO ) HEX 

1 

2 T: DEL 9K DROP 1 LEXLEN U< 

3 IF EBOT EOS TO EBOT 1- BOS TO 

4 -1 PATT ♦! [SEARCH] 

5 ELSE 0 PATT ! EBOT 1- EBOT SHOWMARK 

6 ENOIF ; 

7 

8 T: EXPAND 

9 0 LOCAL 1 TO 5 XFLAG TO 

10 EOS EBOT - 

11 IF EOS EBOT U< 

12 IF BOS EBOT ELSE EBOT 1- EOS ENDIF 

1 3 NEWMARK OLDSHOW 

14 ELSE OEOS EBOT - 

15 IF OEOS BEOT U< 

16 IF OEOS EBOT 

17 ELSE EBOT 1- OEOS 

18 ENDIF 0 EOS TO 0 BOS TO 

1 9 SHOWMARK 

20 ENDIF ENDIF 

21 BEOT EOT - NARROW TO BOS OEOS TO ; 

22 
23 

205 

0 ( HARDPAGE SOFTPAGE ) HEX ;S 



8 

9 T: SEARCH ( -- ) 

10 PURPOSE: search for character pattern in 

11 the text. 

12 

13 get a character to PATT. 

14 discard character from key queue. 

15 Lex to character, and display. 

16 

17 

18 

19 

20 
21 
22 
23 



0 T: DEL ( — ) 

1 PURPOSE: during a LEXREX search delete 

2 a char from PATT. 

3 

4 discard delete keystroke. 

5 if PATT has more than one character 

6 decrements PATT. select char at EBOT-1 

7 search anew. 

8 else clear PATT. show current select. 

9 
10 

11 T: EXPAND ( — ) 

12 PURPOSE: if both lex keys pressed then 

13 select and show text (ie, highlight). 

14 

15 set XFLAG to 5 (both lex keys down, 

16 and selection is already expanded). 

17 if selecting during a lex 

18 show selected text. 

19 else select new text block 

20 and show new selection. 

21 use fat cursor except at end of text. 

22 store BOS into OEOS. 

23 

0 



1 « 

2 LABEL HARDPAGE < addr — ) 2 

3 YSAVE STY. PAGE 8 LDY, INY. 3 

4 0 SP) LDA, PGSO ,Y STA, 4 

5 1 SP) LDA. PGS1 ,Y STA. 5 

6 INX, INX, YSAVE LOY, TNEXT. 6 

7 7 

8 LABEL SOFTPAGE ( flag — > YSAVE STY. 8 

9 0 SP) LDA. NE 9 

10 IF, L0CAL2 LDA. 1 8B CMP, EQ 10 

11 IF. " 

12 YPOS LDY. WND3 2 -*■ ,Y LDA. TAY. CLC. 12 

13 PGSO , Y LDA. GAP ADC. PGSO .Y STA. 13 

14 PGS1 , Y LDA. GAP 1+ ADC. PGS1 ,Y STA. 14 

15 ELSE. '5 

16 YPOS LDY. WND3 ,Y LDA. TAY, SEC. 16 
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17 PGSO .Y LDA. GAP SBC, PGSO ,Y STA, 17 

18 PGS1 , Y LDA. GAP 1+ SBC, PGS1 ,Y STA. 18 

19 ENDIF, 19 

20 ENDIF. 20 

21 I NX. I NX. YSAVE LDY, TNEXT, 21 

22 22 

23 23 
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0 ( OUTLEX ) HEX 

1 

2 T: OUTLEX TOP 17 + E# U< 

3 IF BOS EOS SHOWMARK ENDIF 

4 EOS EBOT - 

5 IF EOS EBOT U< DUP 

6 IF EOS EBOT GAP 

7 ELSE EBOT EOS GAP NEGATE 

8 ENOIF ROT LOCCHR PAGE# 

9 INCPAGES 

10 IF EBOT EOS - >R 

11 EOS BEOT R8 - R8 CMOVE> 

12 R> NEGATE BEOT +TO 

13 EOS EBOT TO 

14 ELSE EOS BEOT - >R 

15 EBOT BOH U<' 

16 IF BOH GAP - REHINDOW ENDIF 

17 BEOT EBOT R8 CMOVE 

18 BOS BEOT U< 0- 

19 IF GAP NEGATE BOS *T0 ENDIF 

20 R8 BEOT *TO R> EBOT *TO 

21 EBOT EOS TO 

22 ENOIF ENDIF NARROH BOT 1+ EOS U< AND 

23 BEOT EOT - OR NARROW TO ; 

207 

0 ( PRELEX POSTLEX ) HEX 

1 

2 T: PRELEX 

3 -1 LEXXING TO XFLAG LCCAL2 TO 

4 1 LRFLAG TO -1 LOCAL 1 TO 

5 1 SEL U< OFF 

6 IF LOCAL2 1 - 

7 IF BOS DUP 1+ SHOWMARK LEXCUR 

8 ELSE EOS DUP 1- SWAP SHOWMARK 

9 BEOT EOT - 

10 IF LEXCUR ELSE RENCUR ENDIF 

11 ENDIF 

12 -1 EXTENDED TO 0 LOCAL 1 TO 

13 -1 RESEEK TO 

14 ENDIF 

15 EOS LOCCHR LINE# E# TO 

16 BOS LOCCHR LINE# B# TO ; ( — ) 

17 

18 T: POSTLEX 

19 NARROW EXTENDED OR EXTENDED TO QUE 

20 QIN QOUT TO 

21 CHAR 9B - IF 0 CHAR TO ENDIF 

22 0 LEXXING TO ; ( — ) 

23 



0 T: MOVEGAP ( — ) 

1 PURPOSE: moves gap and updates 

2 appropriate pointers to account tor 

3 the completed leap 

4 

5 if selection doesn't end past screen 

6 then display selection. 

7 if lex moved toward beginning of text 

8 then move text, update BEOT, EBOT. 

9 else if screen no longer displays 

10 old cursor position then initialize 

11 window table, recalculate page table. 

12 and move text. 

13 if this selection begins after the 

14 old cursor position then 

15 subtract GAP from BOS. 

16 update BEOT. EBOT. and EOS. 

17 set cursor to previous state unless at 

18 beginning then use thin cursor. 

19 

20 NOTE1 : after OUTLEX then EOS - EBOT. 

21 NOTE2: the key control feature of OUTLEX 

22 is if EOS is altered (ie. EOS <> EBOT). 

23 e.g., by a lexxing operation. 

0 T: PRELEX ( — ) 

1 PURPOSE: prepare for LEXREX operations. 

2 

3 set LEXXING flag. 

4 set up other flags used by LEXREX: 

5 AXFLAG saves direction of lex key. 

6 LRFLAG used by <SEARCH>, set LOCAL 1 

7 (reset by any LEXREX operation). 

8 if a selection is highlighted then 

9 collapse to left or right depending 

10 upon which lex key was pressed after 

11 turning cursor off, then lexcur. 

12 set up E# and B# (used by SHOWMARK ?). 

13 

14 

15 T: POSTLEX ( — ) 

16 PURPOSE: necessary housekeeping after 

17 LEXREX. 

18 • 

19 setup EXTENDED. 

20 clear the lex keys. 

21 if an escape character then discard. 

22 clear LEXXING flag. 

23 
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0 ( CREEPSHOW) HEX 

1 

2 T: CREEPSHOW YPOS LOCAL 2 1 - 

3 IF BOT BOS U< 

4 IF NARROW 

5 IF EBOT 1- C9 BEOT 1- C! -1 BEOT +TO 

6 -1 EBOT +TO BEOT C9 1C = 

7 IF BEOT 1+ EBOT LOCCHR HARDPAGE 

8 0 LOCAL 1 TO 

9 ELSE EBOT 1- C9 1C - 

10 IF 0 LOCAL 1 TO ENOIF 

11 ENDIF EBOT 1- EBOT SHOWMARK 

12 ENOIF ENDIF 

13 ELSE BEOT EOT U< 

14 IF BEOT SO + C9 EBOT 50 + C! 

15 1 BEOT +T0 1 EBOT +T0 

16 EBOT 1- C9 1C - 

17 IF EBOT BEOT 1- LOCCHR HARDPAGE 

18 0 L0CAL1 TO 

19 ELSE E90T 2 - C@ 1C - 

20 IF 0 LOCAL 1 TO ENOIF 

21 ENDIF EBOT 1- EBOT SHOWMARK 

22 ENDIF ENOIF ; 

23 

209 

0 ( CREEPER ) 

1 

2 T: CREEPER CREEPSHOW 

3 OEOS 1- BEOT U< EBOT 2 - OEOS U< AND 

4 IF LOCAL2 1 - 

5 IF BEOT ELSE EBOT 1- 

6 ENOIF OEOS TO 

7 ENDIF POSTLEX LOCAL 1 

8 >R BOT 1+ EOS U< 

9 IF LEXCUR ELSE RENCUR ENDIF 

10 YPOS 2DUP 

11 2 ♦ - R9 ANO SOFTPAGE 

12 2 - - R9 AND SOFTPAGE 

13 NUFLAG R> AND DUP 

14 YPOS 09 - AND SOFTPAGE 

15 YPOS OC - AND SOFTPAGE 

16 0 OLIN TO ; 

17 

18 

19 

20 
21 
22 
23 
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0 T: CREEPSHOW ( — ) 

1 PURPOSE: adds single keystroke cursor 

2 movement left or right using lex keys. 

3 

4 if left cursor pressed then move 1 space 

5 to left if not below text and if 

6 previous cursor was LEXCUR (thin) 

7 (determined by the state of NARROW): 

8 if previous cursor was RENCUR (fat) 

9 then do nothing because POSTLEX will 

10 set cursor with LEXCUR. 

11 if a hard page character has been 

12 passed then update page table. 

13 otherwise right cursor has been pressed: 

14 move right 1 space if not above text. 

15 also, move 1 character from B£0T*S50 to 

16 EB0T+S50 so that wrapping will work 

17 properly (this mimicks part of FRESH). 

18 if a hard page character has been 

19 passed then update page taole. 

20 scroll screen if ipb at bottom 

21 
22 
23 

0 T: CREEPER ( — ) 

. 1 PURPOSE: move cursor one character and 

2 maintain pagetable. 

3 

4 adjust OEOS so that it is not left in 

5 the gap (ie, maintains selection). 

6 housekeeping (POSTLEX). 

7 if at the very beginning of text use a 

8 fat cursor (RENCUR): all other times 

9 use a thin cursor (LEXCUR). 

10 if a softpage has been passed on the 

11 current display then update the page 

12 table. 

13 if a softpage has been passed on a new 

14 display then update the page table. 

15 sat OLIN to zero so that the next 

16 word that uses FRESH will result in 

17 fixing a number of problems related to 

18 the creeper mechanism. (Note: FRESH was 

19 once a part of creeper but was taken 

20 out to speed creeper up.) 

21 
22 
23 
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0 ( MOVE-GAP L EXREX ) HEX 

1 

2 T: MOVE-GAP FLUSH EOS EBOT - 

3 IF EOS EBOT U< 

4 IF BEOT ELSE EBOT 1- ENDIF 

5 OEOS TO 

6 ENOIF OUTLEX 

7 QUE 0 OLIN TO FRESH POSTLEX 

8 NARROW IF LEXCUR ELSE RENCUR ENDIF ; 



0 T: LEAPER ( —) 

1 PURPOSE: perform the operations needed 

2 by DEL. SEARCH. REP and EXPAND. 

3 update OEOS. 

4 move text (OUTLEX). 

5 update screen (FRESH) . 

6 housekeeping (POSTLEX). 

7 show thin cursor if lexxed, show fat 

8 cursor if expanded selection. 
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9 

10 T: L EXREX PRELEX 

11 NARROW >R 

12 BEGIN CUE 7LBLINK ?X WHILE 

13 ?S IF OFF SEARCH QUE LEXCUR ELSE 

14 ?0 IF OFF DEL QUE LEXCUR ELSE 

15 ?A IF OFF REP OUE LEXCUR ELSE 

16 ?E IF OFF EXPAND R> DROP 0 >R 

17 ENDIF ENDIF END IF ENDIF 

18 REPEAT R> EBOT EOS - 

19 IF NARROW TO ELSE OROP ENDIF 

20 OFF 

21 LOCAL 1 

22 IF CREEPER ELSE MOVE-GAP ENDIF : 

23 

1 

0 { AUTOEXTEND ) HEX 

1 

2 T: AUTOEXTEND SEL 2 U< 

3 IF EOS CEOS U< 

4 OFF EXPAND 

5 IF OUTLEX ENDIF 

6 NARROW IF LEXCUR ELSE RENCUR ENDIF 

7 ENDIF -1 EXTENOED TO ; 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



9 

10 T: L EXREX ( — ) pattern search 

11 PURPOSE: interpret and act upon lex 

12 key press(es). 

13 PRELEX sets flags and collapses if a 

14 selection exits. 

15 pole for searching, editting, repeating 

16 highlighting (highest priority to the 

17 lowest priority). 

18 if a search has failed then restore the 

19 cursor to the sane it was before the 

20 search (i.e., fat or thin). 

21 if no other operation has occurred then 

22 move cursor (ie, CREEP cursor). 

23 else move the gap. 

0 T: AUTOEXTEND 

1 PURPOSE: to automatically highlight 

2 ("select", EXPAND) a section of text 

3 if BOS is not next to EOS. 

4 

5 if a selection can exist than turn off 

6 the cursor and expand the selection. 

7 if EOS < OEOS than outlex. 

8 if lexxed then show thin cursor 

9 (LEXCUR) else fat cursor (RENCUR). 

10 set extended true. 

11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
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0 ( MS MEMIT ) HEX 

1 

2 LABEL MS ( 8 -- ) YSAVE STY. 

3 0 SP) INC, 1 SP) INC, 

4 BEGIN, CA 8B LDY, 

5 BEGIN, OEY, EQ UNTIL. 

6 0 SP) DEC, EQ IF, 1 SP) DEC, ENDIF, EQ 

7 UNTIL. I NX, I NX. YSAVE LDY, TNEXT , 

8 

9 LABEL MEMIT YSAVE STY, 0 SP) LDY. 

10 I NX, I NX, SSC? LDA, NE 

11 IF, If #8 CPY, EQ IF. OC SB LDY, ENDIF, 

12 cr 88 CPY, EQ IF, 00 SB LDY. ENDIF. 

13 BEGIN. C0A9 LDA, 10 88 AND. NE 

14 UNTIL, C0A8 STY, 

15 ENDIF, YSAVE LDY. TNEXT, 

16 

17 

18 

19 

20 
21 
22 
23 



18 

19 

20 
21 
22 
23 

0 LABEL MS ( # — ) 

1 PURPOSE: wait 8 milliseconds . 

2 

3 LABEL MEMIT ( char -- ) 

4 PURPOSE: send char to a super serial 

5 card in slot 2. 

6 

7 load character into Y-reg. 

8 if super serial card exists then 

9 if character is form feed then change 

10 character value to $0C. 

11 if character is a return then change 

12 character value to SOD. 

13 wait until status bit clear (bit $10 

14 at SC0A9 ) then send character 

15 (store character at SC0A8). 

16 

17 LABEL 7EMPTYBUF ( — ) 

18 PURPOSE: send a control-S if full. 

19 

20 if RSTAT is true: clear RSTAT 

21 wait for status to clear. 

22 send a control-S 

23 
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0 ( ?M ?LE CONTROL ) HEX 

1 

2 LABEL ?M 

3 YSAVE STY, 0 8B LDY, DEX, DEX, 

4 MQOUT LDA, MQIN CMP. NE 

5 IF, DEY. ENDIF. 

6 0 SP) STY, 1 SP) STY. YSAVE LDY, TNEXT, 

7 

8 T: 7LE LINENDX 0< 0- 

9 IF BOS ca LINENDX 2DUP 

10 OFF AND SWAP OVER - 

11 IF DUP MEMIT ENDIF DROP 

12 SWAB OFF AND 7 DUP 

13 IF SWAP OVER - 

14 IF DUP MEMIT ENDIF 

15 ENDIF DROP 

16 ENDIF ; 

17 

18 LABEL CONTROL YSAVE STY, 

19 BEGIN, COOO LDY, 7F SB CPY. CS 

20 UNTIL, C010 STA, SSC? LDA. NE 

21 IF, BEGIN, C0A9 LDA. 10 SB AND. NE 

22 UNTIL, TYA. IF SB AND, C0A6 STA. 

23 ENDIF, YSAVE LDY, TNEXT. 

215 

0 ( 7SEND SEND ) HEX 

1 



0 ( ?M 7LE CONTROL ) HEX 

1 

2 LABEL ?M ( — flag ) 

3 PURPOSE: indicate whether modem needs 

4 attention. 

5 

6 false if modem buffer is empty, other 

7 typed chars are placed in key queue. 

8 
9 

10 T: 7LE ( -- ) 

11 PURPOSE: send the line end character ( s) . 

12 NOTE: LINENDX can be 1 or 2 characters. 

13 

14 

15 LABEL CONTROL ( — ) 

16 PURPOSE: send a character entered from 

17 the keyboard to the modem. 

18 

19 wait for a key. i 

20 convert it to a control character. 

21 send it. 

22 

23 NOTE: this is the control-Z function. 

0 LABEL ’SEND ( — ) 

1 PURPOSE: used in SEND to stall until 
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2 LABEL ?SEND 

3 BEGIN. TSTAT LDA. EO UNTIL. TNEXT . 

4 

5 T: SEND AUTOEXTEND 

6 BOS LOCCHR LINADR WR! 

7 WRAP ENDWRAP DROP WR9 

8 SEL 0 

9 DO 7SEND 

tO BOS OVER - 

11 IF ?LE 4 MS 

12 BOS 1- LOCCHR LINES TOP - OMAX 

13 DUP 2 ♦ SWAP RESHOW 

14 WR! WRAP ENDWRAP DROP WR9 

15 ENOIF 

16 BOS C9 MEMIT 

17 1 BOS +TO 

18 LOOP EOS 1- BOS TO 

19 DROP ?LE 

20 0 OLIN TO FRESH 

21 BEOT EOT - IF LEXCUR ELSE RENCUR ENDIF 

22 -1 EXTENDED TO ; 

23 
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0 ( .SWYFT .SENDSWYFT 7RECFULL ) HEX 

1 

2 FRAG .SWYFT 16 C, 13 C. 00 C. 

3 53 C, 77 C, 79 C, 66 C, 74 C. 

4 43 C. 61 C, 72 C. 64 C. 20 C, 

5 31 C. 30 C. 34 C. 33 C. 20 C. 

6 2F C. 2F C. 65 C. OD C. 11 C. 

7 

8 FRAG .SENDSWYFT 0 SB LDY. YO STY. 

9 BEGIN, \ .SWYFT 1+ ,Y LOA. TAY. 

10 BEGIN. C0A9 LDA. 10 SB AND. NE 

11 UNTIL. C0A8 STY, 

12 YO INC. YO LDY, \ .SWYFT CPY. CS 

13 UNTIL, RTS, 

14 

15 LABEL 7RECFULL ( — ) RSTAT LDA. NE 

16 IF. 0 SB LDA. RSTAT STA, 

17 BEGIN, C0A9 LDA. 10 SB AND. NE 

18 UNTIL. 11 SB LDA, C0A8 STA, 

19 ENDIF, TNEXT, ( send control Q ) 

20 
21 
22 
23 

217 

0 ( .INTERRUPT ) HEX 

1 

2 FRAG .INTERRUPT PHA, TYA, PHA. 

3 C0A9 LDA. 08 SB AND. NE 

4 IF, C0A8 LOA. 7F SB AND. 

5 13 SB CMP. NE ( control S ) 

6 IF, 11 SB CMP. NE ( control 0 ) 

7 IF. 20 SB CMP, NC 

8 IF, OC SB CMP. EQ 

9 IF, ( send control S ) 

10 BEGIN, COA9 LDA, 10 SB AND. NE 

11 UNTIL. 13 SB LOA. C0A8 STA. 

12 FF SB LDA, RSTAT STA. 



2 a control-0 is received. 

3 

4 

5 T: SEND ( — ) 

6 PURPOSE: send text to modem. 

7 

8 autoextend selection. 

9 set modem for transmission. 

10 send entire selection 

11 at baud rate set by (BASIC) SE“ 

12 and display text after each line sent. 

13 stall if receiver sends back a control 

14 S. so wait for control-Q. 

15 FRESH screen. 

16 leave cursor fat at the end of the 

17 transmission unless at the end of the 

18 text '(then thin cursor). 

19 

20 
21 
22 
23 



0 

1 FRAG .MEMIT 

2 PURPOSE: send the character that is in 

3 the Y register 

4 

5 FRAG .MQUE 

6 PURPOSE: grab a character from the 

7 modem and place it in the Accumulator 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG . VQUE ( — ) 

1 PURPOSE: receive a character from modem 

2 

3 FRAG .INTERRUPT < — ) 1 

4 PURPOSE: process interrupts from modem 

5 

6 if there is a character to be read and 

7 if it is not a "S and 

8 if it is not a *0 then 

9 if a form feed then 

10 send "S, set RSTAT and set A-reg 

11 with ff. 

12 else (not a form feed) 
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13 ff #8 LDA. 

14 ELSE, 00 SB CMP. E0 

15 IF, cr SB LDA, 

16 ELSE. 05 SB CMP. EQ 

17 IF, \ . SENOSWYFT JSR. 

18 ELSE, 07 SB CMP, EQ 

19 IF. OFF SB LDA. BELL? STA. 

20 ENOIF, ENDIF, 

21 PLA. TAY, PLA, RTI, 

22 ENDIF, ENDIF, ENDIF, 

23 



176 

13 if a carriage return Load cr value 
14. else (not a carriage return) 

15 if it is a *C then return "SY/YFT" 

16 else (not a “C) 

17 if it is a ‘G then BEEP endif 

18 endif 

19 return from interrupt if *C or ‘G 

20 endif 

21 endif endif 

22 
23 
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0 ( .INTERRUPT ... ) HEX 

1 

2 MQIN LDY. MQUE ,Y STA, MQIN INC, 

3 SEC. MQOUT LDA. MQIN SBC. 

4 8 SB CMP. NC 

5 IF, ( send control S ) 

6 BEGIN, C0A9 LDA, 10 SB AND. NE 

7 UNTIL. 13 SB LDA. C0A8 STA. 

8 FF SB LDA. RSTAT STA. 

9 ENDIF, 

10 ELSE. 0 SB LDA, TSTAT STA. 

11 ENDIF. 

12 ELSE. FF SB LDA, TSTAT STA. 

13 ENDIF. ENDIF. 

14 PLA. TAY, PLA, RTI. 

15 

16 
17 
IB 

19 

20 
21 
22 
23 
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0 ( old .INTERRUPT ) HEX ;S 

1 

2 FRAG -INTERRUPT PHA, TYA, PHA. 

3 C0A9 LDA. OF SB AND. NE 

4 IF. 07 SB AND, NE 

5 IF, 13 SB LDY, ( error: send 'S ) 

6 BEGIN, C0A9 LDA. 10 SB ANO. NE 

7 UNTIL. C0A8 STY, 

8 32 SB LDA. YO STA. ( wait 32 ms ) 

9 BEGIN, CA SB LDY, 

10 BEGIN, DEY. EQ UNTIL. 

11 ( while also reading data line ) 

12 C0A9 LDA. TAY, 08 SB AND. NE 

13 IF. TYA, 07 SB AND, EQ 

14 IF, 11 SB LDY, ( char, no error ) 

15 BEGIN, C0A9 LDA. 10 88 AND, NE 

16 UNTIL. C0A8 STY. ( send 'Q ) 

17 \ -RECEIVE JMP . 

18 ENDIF, ENDIF. YO DEC. EQ 

19 UNTIL, 11 SB LDY, ( send ‘Q ) 

20 BEGIN. COA9 LDA. 10 SB AND. NE 

21 UNTIL. C0A8 STY. 



0 

1 otherwise load char into MQUE if room 

2 else wait till clear, send ‘S. 

3 set RSTAT. 

4 else it is a 'Q. reset TSTAT 

5 else it is a *S. set TSTAT 

6 restore A-reg and Y-reg 

7 

8 NOT El : 

9 if a "Z‘C then send back SiVYFT message. 

10 if a "Z‘G then give a beep. 

11 if a "Z'S then do not allow 

12 interruption. 

13 if a *Z‘Q then allow interruption. 

14 other control characters are ignored. 

15 if a character then put into MQUE. 

16 

17 NOTE 2: 

18 RSTAT receiver status: set if no room 

19 in MQUE to put character or a page 

20 character received. 

21 TSTAT transmitter status: set if a "S, 

22 reset if a 'Q. 

23 

0 T: MAPPEND ( — ) 

1 PURPOSE: transfer entire contents of 

2 modem buffer to text at OEOS. 

3 

4 collapse the selection. 

5 set OEOS. 

6 update MQOUT. 

7 make sure there is enough room for text 

8 and for pages. 

9 if OEOS is below EOS then move text up 

10 and move modem que text in place. 

11 update EOS and OEOS. 

12 determine if a NEWMARK exits. 

13 FIXENO. set dirty, update screen. 

14 if the last character was a page' and 

15 there are more than S47 pages then 

16 THCROUGHly update page table in 

17 ENDFORM. 

18 if there are less than $C7 pages then 

19 check for full receive buffer. 

20 else not enough room, BEEP and stop the 

21 sender from transmitting any more. 
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22 ENDIF, \ .RECEIVE JMP. 22 

23 ENOIF, PLA, TAY, PLA. RTI . 23 



scr S 220 

0 ( MAPPEND ) HEX 

1 

2 T: MAPPEND 7C0LLAPSE 

3 EOS OEOS UMIN BOT 1 + UMAX OEOS TO 

4 MQUE MOOUT + 

5 MQIN DUP MOOUT U< 

6 IF DROP 0 100 ELSE OUP END IF 

7 MOOUT - SWAP MOOUT TO 

8 8 EOT EBOT 100 ♦ - UMIN 0 OVER U< 

9 PAGES 0C9 U< AND 

10 IF OEOS EOS U< 

11 IF OEOS 2DUP ♦ EBOT OEOS - CMOVE> 

12 ENOIF SWAP OVER OEOS SWAP CMOVE 

13 OEOS LOCCHR LINE# >R 

14 DUP EBOT »T0 OUP OEOS »T0 

15 EOS + DUP 1- SWAP NEWMARK 

16 FIXEND OFF -1 DIRTY TO 

17 E# R> - REFRESHER RENCUR 

18 OEOS 1- C8 01C - 47 PAGES U< AND 

19 IF -1 THOROUGH? TO ENOIF ENDFORM 

20 PAGES 0C7 U< IF 7RECFULL ENOIF 

21 ELSE DROP DROP BEEP 13 MEMIT 

22 C7 PAGES U< IF -1 THOROUGH? TO ENDFORM 

23 ENOIF ENOIF ; 

221 

0 ( .STARTU .ENDU STARTU ENDU ) HEX 

1 

2 .FRAG .STARTU USTART 2 ♦ LDA. NE 

3 IF. 0 #B LDY. ( print USTART S ) 

4 BEGIN. USTART 3 ♦ ,Y LDX, YO STY. 

5 <LEMIT> JSR, YO LDY, INY. 

6 USTART 2 ♦ CPY. EO UNTIL. ENOIF. RTS. 

7 

8 FRAG .ENDU UEND 2 + LDA. 1 #B CMP. NE 

9 IF, 1 HB LDY, ( print UEND $ ) 

10 BEGIN. UEND 3 + ,Y LDX. YO STY. 

11 <LEMIT> JSR. YO LDY, INY, 

12 UEND 2 ♦ CPY, EQ UNTIL, ENOIF. RTS. 

13 

14 LABEL STARTU UEND 3 + LDA. NE IF. 

15 UFLAG LDA. NE IF, YSAVE STY, XSAVE STX, 

16 \ .STARTU JSR. XSAVE LDX, YSAVE LDY. 

17 ENDIF, ENDIF, TNEXT, 

18 

19 LABEL ENDU UEND 3 ♦ LDA. NE IF. 

20 UFLAG LDA. NE IF. YSAVE STY. XSAVE STX. 

21 \ .ENDU JSR. XSAVE LDX. YSAVE LDY, 

22 ENDIF, ENDIF, TNEXT. 

23 



scr # 222 

0 ( LEMIT LCR LTYPE LMARGIN .USINGLE ) HEX 

1 

2 LABEL LEMIT YSAVE STY, 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 FRAG .STARTU 

1 PURPOSE: print USTART string from USTART 

2 string. 

3 NOTE: USTART 2+ has length of string. 

4 

5 

6 FRAG .ENDU 

7 PURPOSE: print UEND string from UEND 

8 string. 

9 NOTE: UEND 2* has length of string. 

10 

11 LABEL STARTU 

12 PURPOSE: start underline if UEND 3 + is 

13 not zero and UFLAG is set. 

14 

15 LABEL ENDU 

16 PURPOSE: end underline if UEND 3 ♦ is 

17 not zero and UFLAG is set. 

18 

19 

20 
21 
22 

23 • 



0 LABEL LEMIT ( char -- ) 

1 PURPOSE: print character. 

2 save y-reg . 
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3 0 SP) LDA, INX, INX, 

4 XSAVE STX, TAX. <LEMIT> JSR. 

5 XSAVE LDX, YSAVE LDY. TNEXT, 

6 

7 T: LCR 00 LEMIT 

8 .LF IF 0A LEMIT END IF ; 

9 

10 T: LCRS OMAX ?OUP 

11 IF 0 DO LCR LOOP ENDIF ; 

12 

13 T: LMARGIN .BL MARGIN), + ?DUP 

14 IF 0 DO 20 LEMIT LOOP 

15 ENDIF ; ' 

16 

17 FRAG .USINGLE 

18 Y1 STX. \ .STARTU JSR, Y1 LDX. 

19 <LEMIT> JSR. \ .ENDU JSR, 

20 YSAVE LDY, XSAVE LDX. TNEXT. 

21 
22 
23 

223 

0 ( ULEMIT > HEX 

1 LABEL ULEMIT ( n — ) YSAVE STY. 

2 1 SP) LDA. YO STA. 0 SP) LDA. 

3 INX. INX, XSAVE STX. TAX. UFLAG LDA. EQ 

4 IF, 5F SB CPX, EQ ( UFLAG not sot) 

5 IF. OFF SB LDA. ( underLi.no char ) 

6 UFLAG DUP STA. 1+ STA. ( sot UFLAG ) 

7 20 SB LDX. <LEMIT> JSR. ( soace ) 

8 UEND 3 + LOA. NE ( group u'Uno? ) 

9 IF, \ .STARTU JSR. ENDIF, ( start ) 

10 ELSE. <LEMIT> JSR, ENDIF, 

11 ELSE. 5F SB CPX. EQ ( UFLAGsat , not_?) 

12 IF. YO LDX. 5F SB CPX. EQ 

13 IF. 20 SB LDX. UEND 3 + LDA. EQ 

14 IF, \ .USINGLE JMP, ENOIF. < 1 ) 

15 ELSE. 0 SB LDA. ( end _ ) 

16 UFLAG DUP STA. 1+ STA, ( cLrUFLAG ) 

17 UEND 3 + LDA. NE ( group? ) 

18 IF. \ .ENDU JSR, ENDIF, 20 SB LDX, 

19 ENDIF, 

20 ELSE, UEND 3 + LDA, EQ 

21 IF. \ .USINGLE JMP. ENOIF. 

22 ENDIF, <LEMIT> JSR, 

23 ENDIF. YSAVE LDY. XSAVE LDX, TNEXT. 



scr 8 224 

0 ( LTYPE V8 V! ) HEX 

1 

2 T: LTYPE LMARGIN STARTU 

3 CURR DUP DUP 50 + SWAP 

4 DO 20 I C8 7F AND U< 

5 IF DROP I ENDIF 

6 LOOP 1+ CURR 

7 DO I CS 7F U< 

8 IF I 9 ULEMIT 

9 ELSE ENDU 20 LEMIT STARTU 

10 ENDIF 

11 LOOP ENDU ; 

12 

13 T: V! V ?OUP 



3 remove character from stack 

4 save x-r-eg. 

5 transfer a-reg to x-reg and call <LEMIT> 

6 restore x and y registers. 

7 

8 T: LCR ( — ) 

9 PURPOSE: print a carriage return and 

10 also print a line feed if . LF is true. 

11 

12 T: LCRS ( n -- ) 

13 PURPOSE: print n carr returns. 

14 n can be zero. 

15 

16 T: LMARGINS 

17 PURPOSE: print the left margin. also 

18 prevents margins from being underlined 

19 if underline is turned on. 

20 

21 T: .USINGLE 

22 PURPOSE: single underline. 

23 

0 LABEL ULEMIT 

1 PURPOSE: this word controls underlining 

2 sent to the printer. 

3 

4 underlining is turned on by an underline 

5 character (a space is printed in its 

6 place) and turned off by another 

7 underline unless there are two 

8 underlines right next to each other 

9 in which case an underline is printed. 

10 and also turned off by two carriage 

11 or by a pagebreak. 

12 

13 UFLAG true indicates that underlining 

14 is currently in operation. 

15 USTART is string for turning on u'line. 

16 UEND is string for turning off u'line. 

17 the first element contains a group flag 

18 for backspace underlining: 0 means that 

19 the printer must backup to underline 

20 each character. 

21 
22 
23 



0 T: LTYPE ( — ) 

1 PURPOSE: print a line from CURR until 

2 control character encountered. 

3 

4 print leading blanks (LMARGIN). ' 

5 start underline. 

6 examine 80 characters in CURR buffer 

7 for control characters and for 

8 1D»carriage return. 

9 return address of control character. 

10 print all characters substituting the 

11 control character with a blank. 

12 
13 




4 , 806,916 



182 



181 

14 IF SWAP SWAB SWAP ! ELSE DROP ENOIF ; 

15 

16 T: VS V 8 SWAB ; 

17 

18 

19 

20 
21 
22 
23 

225 

0 ( ENDPAGE SETPRINTER ) HEX 

1 

2 T: ENDPAGE UFLAG 

3 IF WR8 C8 1C • 0- UFLAG TO ENDIF 

4 42 LPAGEX - ABOVEX - LINESCOUNT - LCRS 

5 PCT 8000 ♦ PAGEX + PFLAGX 8000 * U< 0- 

6 IF PAGEPRINT ENDIF 

7 0 LINESCOUNT TO OC LEMIT ; 

8 

9 T: SETPRINTER 

10 PBUF ADDR DUP 3 + >R 

11 R9 2 + C8 HEAOX TO 

12 2 ♦ CS 3 - OMAX ?DUP 

13 IF R9 3 ♦ SWAP OVER + SWAP 

14 DO I. C8 LEMIT LOOP 

15 ENDIF 

16 R8 1+ C8 .BL TO 

17 R> C9 .LF TO 

18 .LF IF 00 LEMIT ENDIF ; 

19 

20 
21 
22 
23 

sc r B 226 

0 ( PRINT ) HEX 

1 T: PRINT AUTOEXTEND 

2 SETPRINTER 

3 BOS LOCCHR LINADR WR! 

4 LINREL LCT TO PAGES PCT TO 

5 0 PRINTBREAK TO 0 UFLAG TO 

6 BEGIN LINESCOUNT 0- 

7 IF WR8 C8 1C - 

8 IF ABOVEX HEADX OMAX - LCRS 

9 ENDIF ENOIF 70NPAGE 

10 IF WRAP ADJUST -1 PRINT? TO TOBUFF 

11 0 PRINT? TO LTYPE LCR 

12 1 SPACING 2 - IF LCR DROP 2 ENDIF 

13 LINESCOUNT *T0 

14 WR8 C8 10 - IF 0 UFLAG TO ENDIF 

15 ELSE PRINTBREAK IF ENDPAGE ENDIF 

16 ENDIF ENDWRAP 0= 

17 WR8 EBOT 1- UMIN DUP BOS TO 

18 BOS BOW U< 0- 

19 IF 0 OLIN TO LCT PCT 

20 FRESH PCT TO LCT TO 

21 ENDIF WR! -1 PRINTBREAK TO 

22 UNTIL SHOW BEOT EOT = 

23 IF LEXCUR ELSE RENCUR ENDIF ; 



14 T: V! ( S char-pair — ) 

15 PURPOSE: store a number in the BASIC 

16 variable: if it isn't found, do nothing 

17 

18 

19 T: ve ( char-pair — # ) 

20 PURPOSE: fetch a value from a BASIC 

21 variable: if it isn't found, return 

22 value stored at 0 < ** bug? ** >. 

23 

0 T: ENOPAGE ( — ) 

1 PURPOSE: print page number. 

2 turn off underlining if a hard page 

3 break is encountered. 

4 advance to line to print pageB on 

5 print the page number only if 

6 pageB is greater than (BASIC) PFX 

7 form feed to next page. 

8 clear LINESCOUNT 

9 inputs: LPAGEX ABOVEX LINESCOUNT 

10 PFLAGX 

11 

12 T: SETPRINTER ( — ) 

13 PURPOSE: initialize the printer. 

14 emit printer string from that saved by 

15 user (see SAVESTRINGS and LOAOSTRINGS) 

16 to printer, skipping the first 3 bytes. 

17 store first three bytes in: 

18 .LF false if cr does a line feed 

19 .BL B spaces needed for left margin 

20 HEADX B lines past tear-off line a 

21 form feed brings print head 

22 emit a carriage return if it won't 

23 send a linefeed to the printer 

0 T: PRINT ( — ) 

1 PURPOSE: print selected area, line by 

2 line, to printer in slot 1 . 

3 

4 allows a print job to be stopped and 

5 restarted and still look contiguous 

6 as long as it stops at the end of a 

7 line and starts on the next 

8 allows double spacing (BASIC: SPX-2) 

9 if there is a second carriage return 

10 then turn underline flag off. 

11 won't print a leading pagebreak 

12 

13 Inputs: 

14 VECT points to printer rom code. 

15 .LP holds printer initialization.' 

16 BOS points to start of desired text. 

17 

18 Outputs: 

19 BOS points to last character printed. 

20 EXTENDED holds -1 

21 WR points to ??? 

22 
23 
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0 ( save, load BASIC strings ) HEX 

1 

2 ( Sname buffer max — ) 

3 T: SAVES OVER ADDR >R >R 

4 SWAP V DUP 1* 9 ROT - 

5 IF DUP C8 R> UMIN OUP R9 2 ♦ C! 

6 SWAP 1+ 9 OUP R9 ! 

7 R> 3 ♦ ROT CMOVE 

8 ELSE R> R> DROP DROP OROP ENDIF ; 

9 

10 ( Sname buffer — ) 

11 T: LOADS ADDR >R V DUP 1* 9 R8 9 - 

12 IF R9 2 + C9 DUP >R OVER C! 

13 BASICO 6F + DUP 9 R9 - OUP ROT ! 

14 DUP ROT 1+ ! R> 70UP 

15 IF R9 3 + ROT ROT CMOVE 1 ENDIF 

16 ENDIF R> DROP DROP ; 

17 

18 

19 

20 
21 
22 
23 
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0 ( save. Load PRS string at PBUF ) HEX 

1 

2 T: SAVEST RINGS 

3 S6D3 USTART 5 SAVES 

4 55CS UENO 5 SAVES 

5 5002 PBUF 10 SAVES ; 

6 

7 T: LOADSTRINGS 

8 55D3 USTART LOADS 

9 55C5 UEND LOADS 

10 5002 PBUF LOADS ; 

1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

229 

0 ( DEFAULT PRINTER STRINGS ) HEX 

1 

2 FRAG .PRINT 

3 ( UEND ) 1 C. IB C. 2D C. 30 C. 

4 ( USTART ) IB C, 20 C, 31 C. 

5 ( FX80 > 0 C. 0 C. 5 C. 

6 IB C, 4D C, IB C. 6C C. 8 C. 

7 



0 T: SAVES ( Sname buffer max — ) 

1 PURPOSE: save a string entered by user 

2 so that when a NEW or RUN is invoked 

3 this string can be restored instead of 

4 the default string. 

5 

6 if the BASIC string and the user string 

7 do not match then store the Length and 

8 move the contents from BASIC to the 

9 user string. 

10 eLse drop aLL parameters. 

11 

12 T: LOADS ( Sname buffer — ) 

13 PURPOSE: Load a string back into the 

14 BASIC string area. 

15 

16 if the BASIC string and the user string 

17 do not match then store the Length and 

18 move the contents from the user string 

19 to the BASIC string. 

20 and drop aLL parameters. 

21 
22 
23 



0 T: SAVESTRINGS ( — ) 

1 PURPOSE: to save the user strings for 

2 underline start, underline end. and 

3 printer initialization. 

4 

5 

6 T: LOAOSTRINGS ( — ) 

7 PURPOSE: to restore the user strings 

8 for underline start, underline end. 

9 and printer initialization. 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 ( DEFAULT PRINTER STRINGS ) ' 

1 

2 LABEL .PRINT 

3 PURPOSE: default printer strings for 

4 EPSON FX80 . 

5 

6 
7 




185 



4,806,916 



186 



a 


;S 










9 


( IMAGEWRITER 


) 0 C. 


0 C 


. 6 c 


10 


18 C. 


45 C, 








11 


IB C. 


4C C, 30 


C. 30 


c. : 


38 c. 


12 


( IDS 


) 0 C. 0 


C, 






13 


IE C. 


IB C, 4A 


C, 2C 


c. 




14 


36 C. 


30 C. 2C 


C. 24 


c. 




15 


IB C. 


52 C. 2C 


C. 31 


c. 




16 


2C C. 


24 C. 








17 


( QANTX ) 1 C. 


0 C. 






18 


IB C, 


58 C. 36 


C, 73 


c. 




19 


IB C. 


SB C. 32 


C. 77 


c. 




20 


( QUME ) 1 C. 0C C. 






21 


< MX80 ) 0 C, ' 


10 C. OF C, 




22 


( PARALLEL CARD ) 0 ( 


o 


c. 


23 


9 C, 38 C, 30 ( 


4E c 


9 


c. 



scr # 230 

0 ( DEFAULT SASIC zero page ) HEX 

1 

2 FRAG .DEFAULT- 100 ALLOT 



3 


11 BLOCK HERE 


100 - 100 


CMOVE 








4 


















5 


LOMEM 


1* 


HERE 


100 


- 


67 


♦ 


! 


6 


LOMEM 


3 + 


HERE 


100 


- 


69 


♦ 


! 


7 


LOMEM 


3 ♦ 10 7 


» + HERE 


100 


- 


6B 


4> 


! 


8 


LOMEM 


3*107 


* ♦ HERE 


100 


- 


60 


♦ 


1 


9 


HIMEM 


IF - 


HERE 


100 


- 


6F 


♦ 


! 


10 


HIMEM 




HERE 


100 


- 


73 


♦ 


! 


1 1 


LOMEM 


3 + 


HERE 


100 


- 


AF 


♦ 


1 


12 


4000 




HERE 


100 


- 


FB 


♦ 


! 


13 


0 




HERE 


100 


- 


FD 


♦ 


! 


14 


OFF 




HERE 


100 


- 


FF 


♦ 


C! 



15 

16 

17 

18 

19 

20 
21 
22 
23 

231 

0 ( DEFAULT BASIC variables ) HEX 



1 



2 


0 C, 0 


C. 0 


C, 








3 


Cl CD , 


0000 


, 0 


c. 


0 . ( 


MARGINS ) 


4 


CFD2 . 


2001 


, 0 


c. 


0 . ( 


ROOMS ) 


5 


C2C1 , 


0600 


. 0 


c. 


0 , ( 


ABOVES ) 


6 


C907 , 


5000 


, 0 


c. 


0 . ( 


WIDE ) 


7 


Cl DO , 


0000 


. 0 


c. 


0 . ( 


PAGES ) 


8 


C5C2 , 


0600 


. 0 


c. 


0 . ( 


BELOWS > 


9 


DOCC . 


0300 


, 0 


c. 


0 . ( 


LPAGES ) 


10 


C6D0 , 


0200 


. 0 


c. 


0 . ( 


PFLAGS ) 


1 1 


D0D3 . 


0100 


, 0 


c. 


0 . < 


SPACING ) 


12 


C5CC . 


FFFF 


, 0 


c. 


0 . ( 


LINENDS ) 


13 


C5D3 , 


FFFF 


. 0 


c. 


0 . ( 


SENDS ) 


14 


CCDO . 


4200 


, 0 


c. 


0 . ( 


PLENS ) 


15 

16 


D4C2 . 


BOV SWAB 


- 


0 C. 0 


. ( BOC ) 



8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 FRAG .DEFAULT ( — a ) 

1 PURPOSE: used to set up page 0 and 

2 variables for BASIC. 

3 

4 copy image of BASIC page 0 from Lyon's 

5 disk, this image of BASIC was retrieved 

6 by Mino with his Wildcard. 

7 adjust it for these variables 

8 from byte 3 to 5B (hex) 

9 and the position of EDDE. 

10 position of string is at HIMEM 18 -. 

11 and some mysterious things: 



12 


4000 


HERE 


100 


- FB + ! 


13 


0 . 


HERE 


100 


- FD + 1 


14 


OFF 


HERE 


100 


- FF + C! 



15 the value $10 represents the number of 

16 variables in BASIC. 

17 

18 

19 

20 
21 
22 
23 

0 .DEFAULT continued. . . 

1 

2 define the following BASIC variables: 

3 include variables (ascii) 



4 


MARGINS 


- 0 


Cl CD 


left margin 


5 


ROOMS 


- 201 


CFD2 


text available 


6 


ABOVES 


- 0 


C2C1 


top margin 


7 


WIDES 


. 50 


C9D7 


no. columns 


8 


PAGES 


- 0 


Cl DO 


page number 


9 


BELOWS 


- C 


C5C2 


bottom margin 


10 


LPAGES 


- 8 


DOCC 




11 


PFLAGS 


- 2 


C6D0 


page flag 


12 


SPACING 


- 1 


D0D3 


single/double 


13 


LINENDS 


• -1 


C5CC 


send end line 


14 


SENDS 


- -1 


CSD3 


modem initial. 


15 


PLENS 


- 42 


CCDO 


page length 


16 


BOC 


« BOV 


D4C2 


bottom of text 
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17 


D250 . 


a 


C, HIMEM 


18 - 


0 . 


( PRS 


) 


18 


D355 . 


3 


C, HIMEM 


IB - 


0 . 


( USS 


) 


19 


CS55 . 


4 


C, HIMEM 


IF - 


0 , 


( UES 


) 


20 


0,0, 


0 


.0,0. 











21 

22 

23 
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0 ( INITBASIC DEFVARS ) HEX 

1 

2 ( BELONGS IN COLD START ) 

3 LABEL INITBASIC YSAVE STY, 0 #B LDY, 

4 BEGIN, \ .DEFAULT ,Y LOA, 

5 BASICO ,Y STA. INY, EQ 

6 UNTIL. YSAVE LDY. 

7 

8 LABEL DEFVARS YSAVE STY, 

9 BASICO 69 ♦ LDA, XO STA. 

10 8ASIC0 6A ♦ LDA, XO 1* STA. 

11 10 7 * 3 ♦ 5 + #B LDY. 

12 8EGIN. \ .DEFAULT 103 ♦ ,Y LDA. 

13 XO )Y STA. DEY, MI 

14 UNTIL. 

15 OF #B LDY. ( bytes in .PRINT ) 

16 HIMEM IF - DUP OFF AND #B LDA. XO STA. 

17 BASICO 6F + STA. 

18 SWAB OFF AND #B LOA, XO 1* STA. 

19 BASICO 70 + STA. 

20 BEGIN, \ .PRINT ,Y LDA. XO )Y STA. 

21 DEY. MI 

22 UNTIL. YSAVE LDY. TNEXT . 

23 
233 

0 ( RESETVARS > HEX 



1 

2 T: RESETVARS 



3 


GAP 100 


- 02CF 


V! 


4 


WIDE 


D7C9 


V! 


5 


ABOVE* 


C1C2 


VI 


6 


BELOW* 


C2C5 


V! 


7 


PAGE* 


D0C1 


V! 


8 


MARGIN* 


CDC1 


V! 


9 


LPAGE* 


CCDO 


V! 


10 


PFLAGX 


D0C6 


V! 


11 


SPACING 


0300 


V! 


12 


LINENDX 


CCC5 


V! 


13 


SEND* 


D3C5 


V! 


14 


PLEN* 


DOCC 


V! 


15 


BOC 


C2D4 


V! 



16 

17 

18 

19 

20 
21 
22 
23 



17 








18 


PRS 


0250 


printer initial 


19 


USS 


D355 


u'line start 


20 

21 


UES 


C555 


u'line end 



22 NOTE: variable space is led by three 

23 zeroes and trailed by five zereos. 



0 LABEL INITBASIC ( — > 

1 PURPOSE: copy DEFAULT to BASICO (SI 000) 

2 then do DEFVARS. 

3 

4 copy BASIC page 0 from -DEFAULT to 

5 BASICO. later this is moved into page 

6 zero before calling BASIC. 

7 

8 

9 LABEL DEFVARS ( — ) 

10 PURPOSE: define BASIC variables. 

11 

12 move BASIC variables (S42 bytes) 

13 from DEFAULT ♦ $103 to BASICO «■ $69. 

14 force change in zero page values so 

15 that user strings can be preserved. 

16 move printer strings to BASIC area. 

17 

18 

19 NOTE: the value $10 represents the 

20 number of BASIC variables present. 

21 
22 
23 

0 T: RESETVARS ( — ) 

1 PURPOSE: place Swyft default values into 

2 the BASIC variables. 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( VALIDATE ) HEX 

1 

2 T: VALIDATE - 



3 


D2CF V 








4 


IF C0C1 V 


IF C1C2 V 


IF C2CS 


V 


5 


IF D7C9 V 


IF D0C1 V 


IF CCDO 


V 


6 


IF DOCS V 


IF D3D0 V 


IF CCC5 


V 


7 


IF D3C5 V 


IF DOCC V 


IF C2D4 


V 


8 


IF 50D2 V 


IF 55D3 V 


IF S5C5 


V 


9 


IF 1 EXIT 


ENDIF 






10 


ENDIF ENDIF 


ENDIF ENDIF ENDIF 




1 1 


ENDIF ENDIF 


ENDIF ENDIF ENDIF 




12 


ENDIF ENDIF 


ENDIF ENDIF ENDIF 




13 


DEFVARS 








14 


RESETVARS 









1 5 LOADSTRINGS 

16 BASICO 69 + 8 70 + DUP 

17 BASICO 6B + ! 

18 BASICO 6D + ! 0 ; 

19 

20 
21 
22 
23 

235 

0 ( F>B ) HEX 

1 

2 LABEL F>B ( FORTH TO BASIC ) 

3 XSAVE STX, TSX, SSAVE STX, 

4 YSAVE STY, 

5 

6 4F KB LDX, 

7 BEGIN, 50 ,X LDA, FORTHO ,X STA. 

8 BASICO 50 + ,X LDA. 50 ,X STA. 

9 DEX, MI 

10 UNTIL. 3F 48 LDX, 

11 BEGIN. ICO .X LDA. FORTH 1 ,X STA. 

12 BASIC1 .X LDA. ICO .X STA. DEX, MI 

13 UNTIL. 

14 

15 CLC, <ZPMOVE> JSR . 

16 SSAV LDX. TXS. SEI, RETN LDA, MI 

17 IF. <D444> JMP. 

18 ENDIF. OFF 48 LDA. RETN STA. 

19 XSAV LDX. YSAV LDY. PSAV LDA, 

20 PHA, ASAV LDA. PLP, 

21 <RTS> JMP. 

22 
23 



scr 4 236 

0 ( CH>F ) HEX 

1 

2 FRAG ,CH>F 

3 7F 48 AND. RETNCHR STA. 

4 SEC. <ZPMOVE> JSR. 

5 SEC, CH LDA. C0L4 SBC. RETN STA, 

6 RETNCHR LDA. OD 48 CMP. EQ 

7 IF. 0 4B LDA. CH STA. 57B STA. 



0 T: VALIDATE ( — -flag ) 

1 PURPOSE: checks to see if all the 

2 proper BASIC values have been set. 

3 true ■ all required variables present. 

4 falsa ■ something missing. 

5 

6 if all the values are not there then 

7 redefine all variables (DEFVARS). 

8 reset their value (RESETVARS and 

9 LOADSTRINGS). 

10 tell basic where to find them. 

11 

12 NOTE: the value $70 is 7 times the 

13 number of variables (both integers and 

14 strings). 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL F>8 ( — ) 

1 PURPOSE: transfer control from Forth 

2 to BASIC. 

3 save X and S registers. 

4 save second S50 bytes from page 0 

5 at FORTHO. replacing them from BASICO. 

6 save last $40 bytes from page 1 

7 at FORTH 1 , replacing them from BASIC1 . 

8 for disk based Swyft <ZPMOVE> moves 

9 pages 0 and 1 from aux to main memory. 

10 in ROM Swyft <ZPMOVE> is simply an RTS. 

11 sat return stack pointer (from BASICO). 

12 the first time through: 

13 jump to D444, beginning of BASIC. 

14 it will return to B>F or 

15 it will emit characters through CH>F. 

16 consecutive times through: 

17 store -1 in RETN 

18 restore registers (X. Y. P, A) 

19 return to BASIC to where it emitted 

20 characters. 

21 
22 
23 



0 FRAG . CH>F ( -- ) , 

1 PURPOSE: receive characters emitted by 

2 BASIC. 

3 

4 strip high byte and save character 

5 in RETNCHR. 

6 in disk version <ZPMOVE> copies 

7 pages 0 and 1 from main to aux. 
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8 COL# STA. cr #B LDA, RETNCHR STA, 

9 ELSE, CH INC, CH LDA. 57B STA. 

10 COL# STA, 

11 ENDIF, RETNCHR LDA. 

12 

13 CLC, CS IF, 

14 ( skip <ZPM0VE> in B>F ) 

15 

16 

17 

18 

19 

20 
21 
22 
23 

237 

0 ( B>F ) HEX 

1 

2 FRAG . B>F 



3 


SEC, <ZPM0VE> JSR. 




4 


ENOIF. ( skip <ZPMOVE> from C>F ) 


5 


CLI. 




6 


PHP . ASAV STA. PLA. 


PSAV STA. 


7 


XSAV STX. YSAV STY, 


TSX, SSAV STX. 


8 


9 


4F RB LDX, 




10 


BEGIN. 




1 1 


50 ,X LDA. BASICO 


50 ♦ .X STA. 


12 


FORTHO ,X LDA. 50 


,X STA. 


13 


DEX, MI 




14 


UNTIL. 3F RB LDX. 




IE 


BEGIN, 




16 


ICO .X LDA. BASIC1 


,X STA. 


17 


F0RTH1 ,X LDA. ICO 


,X STA. 


18 


DEX. MI 




19 


UNTIL. 




20 


21 


SSAVE LDX. TXS , XSAVE LDX, YSAVE LDY, 


22 


TNEXT, 




23 



scp # 238 

0 ( erase 1st 2 tracks ) HEX 

1 

2 FRAG . NEWDISK. ( — ) 

3 COES LDA, 0 #B LDA. COEF STA. COED STA. 

4 ( //c IWM INITIALIZATION ) 

5 COEE LDA, C0E9 LDA. ( turn on drive ) 

6 50 RB LDY, < step 80 phases ) 

7 BEGIN. TYA, 3 #B AND, .A ASL. 

8 TAX, C0E1 ,X LDA. ( step motor ) 

9 56 #8 LDA, FCA8 JSR, ( deLay ) 

10 COEO ,X LDA. DEY, MI ( step motor ) 

11 UNTIL. 

12 COEF LDA, ( Turn on write current ) 

13 FF #B LDA. FCA8 JSR, ( delay ) 

14 FF RB LDA. FCA8 JSR. ( delay ) 

15 C0E3 LDA, 56 RB LDA. FCA8 JSR, ( step ) 

16 C0E5 LDA. C0E2 LDA. 56 RB LDA, ( to ) 
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8 in ROM version <ZPM0VE> is RTS. 

9 store difference in cursor horizontal 

10 position in RETN. 

11 if the char is a carriage return then 

12 store 0 in cursor position, 

13 update 80-column enhanced ($578), 

14 convert RETNCHR to a Swyft return. 

15 else increment cursor position and 

16 update 80-column enhanced (S57B) . 

17 restore received character to A reg. 

18 continue with .B>F after skipping 

19 <ZPMOVE> in .B>F 

20 
21 
22 
23 

0 FRAG B>F ( — ) 

1 PURPOSE: return from BASIC or CH>F to 

2 Forth. 

3 

4 in disk version <ZPM0VE> 

5 and if not from .CH>F then 

6 copy pages 0 and 1 from main to aux. 

7 save registers (A. P. X. Y. S) 

8 exchange BASIC and Forth pages zero: 

9 copy $50 bytes from S50 to 8ASIC0 

10 and from FORTHO to $50. 

11 exchange BASIC and Forth pages one: 

12 copy S3F bytes from S1C0 to 8ASIC1 

13 and from FORTHO to SI CO. 

14 restore registers (S, X) 

15 return to TOBASIC 

16 

17 

18 

19 

20 
21 
22 
23 



0 FRAG .NEWDISK ( — ) 

1 PURPOSE: erase a Swyft disk when the 

2 phrase "CALL 3600" is calculated. 

3 

4 

5 

6 

7 

8 

9 • 

10 

11 

12 

13 

14 

15 

16 
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17 FCA8 JSR. C0E4 LDA, ( next track ) 

18 FF BB LDA, FCA8 JSR. ( daLay > 

19 FF BB LDA, FCA8 JSR. ( delay ) 

20 COEE LDA, C0E8 LDA, RTS. ( Turn off ) 

21 < write current and drive ) 

22 

23 

239 

0 ( soft switch words for rom card ) HEX 

1 

2 FRAG .MONITOR C081 STA. C08A STA, 

3 FF69 JMP, 

4 FRAG .B/F COBO STA. 

5 \ ,B>F JMP. 

6 FRAG . XNEXT COBO STA. YSAVE LDY, TNEXT. 

7 FRAG .RTS C0B1 STA. RTS. 

8 FRAG .0444 C0B1 STA.. 

9 OFF BB LDX. 1 BB LDY. 

10 4C BB LDA, FDFO STA, D444 JMP. 

11 FRAG .CH/F COBO STA. 

12 7F #8 AND, RETNCHR STA. 

13 \ . CH>F JMP, 

14 FRAG .XFER XS 1+ STA. X5 STY, 

15 C0B2 STA. X5 )JMP. 

16 FRAG . LEMIT2 <LEMIT> JSR. 

17 C0B2 STA. RTS,- 

18 FRAG .BOOT 

19 C08A STA. C0B1 STA, FFFC )JMP, 

20 COBO STA. 0204 JMP. NOP, 

21 D200 . 3E9 . 3 A5 XOR C. 

22 FRAG .CDISK YSAVE STY, XSAVE STX, 

23 <NDISK> JSR, \ XYNEXT JMP, 



scr B 240 

0 ( soft switch words for rom card ) HEX 

1 

2 FRAG .START C080 LDA, C08D LDA. 

3 C0B1 STA. DO BB LDA. XO 1* STA. 

4 0 BB LDY. XO STY. 

5 BEGIN, 

6 BEGIN. XO ) Y LDA. XO )Y STA. INY. EO 

7 UNTIL. XO 1+ INC, EO 

8 UNTIL, 

9 BO BB LDA. E063 STA. 

10 4C BB LDA. D43C STA, 

11 <B/F> OFF ANO BB LDA. 043D STA-, 

12 <B/F> SWAB OFF AND SB LDA. D43E STA. 

13 <CH/F> OFF ANO BB LDA, FDF1 STA, 

14 <CH/F> SWAB OFF AND SB LDA, FDF2 STA. 

15 C08F LDA, C08F LDA. <XNEXT> JMP. 

16 

17 FRAG .LEMIT SEI . C081 STA. 

18 0 BB LDY. 36 STY. Cl BB LOY. 37 STY. 

19 60 BB LDY. FDFO STY. 

20 TXA. FDED JSR. 

21 36 LDA. F75 STA, 

22 FD BB LDA. 37 STA. FO BB LDA. 36 STA. 

23 COBO STA. CLI, RTS. 



17 

18 

19 

20 
21 
22 

23 

0 ( SOFT SWITCH WORDS FOR ROM CARD ) HEX 

1 

2 FRAG .MONITOR jump to the Apple monitor 

3 

4 FRAG .B/F jump to BASIC/FORTH interface 

5 

6 FRAG .XNEXT return from bank 2 routine. 

7 FRAG -RTS return from BASIC. 

8 FRAG -D444 jump to BASIC. 

9 
10 

11 FRAG .CH/F return character to Forth. 

12 

13 

14 FRAG .XFER jump to bank 2 routine. 

15 

16 FRAG . LEMIT2 print character. 

17 

18 FRAG .BOOT boot disk. 

19 

20 
21 

22 FRAG .CDISK erase Swyft disk. 

23 



0 FRAG .START ( — ) 

1 PURPOSE: prepare to call BASIC. 

2 set up for BASIC (SC08D) . 

3 copy BASIC and monitor rom to equivalent 

4 space in ram and modify. 

5 

6 NOTE: SD43C is JMP <B/F> and 

7 SFDF1 Is <CH/F>. 

8 
9 

10 

11 FRAG .LEMIT ( — ) 

12 PURPOSE: print character from x-reg . 

13 

14 turn romcard off. 

15 replace Apple output vector S36 with 

16 soft hook in slot one (SC1C0). 

17 call output routine SFDED. 

18 restore original output vector in' S36 

19 (SFDFO) . 

20 self-modify .LEMIT to store new vector 

21 at $36 (SC102) next time through. 

22 turn romcard on. 

23 
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' 0 ( .FRAGMENTS FOR ROM CARO ) HEX 

1 

2 LABEL ROM-FRAGMENTS 

3 YSAVE STY. OF #B LDY. BEGIN. 



4 


\ 


. LEMIT2 


,Y 


LDA. 


<LEMIT2> 


,Y 


STA. 


5 


\ 


. CDISK 


,Y 


LDA. 


<CDISK> 


,Y 


STA. 


6 


\ 


•XNEXT 


,Y 


LDA. 


<XNEXT> 


,Y 


STA. 


7 


\ 


.MONITOR 


.Y 


LDA. 


<MON> 


,Y 


STA. 


8 


\ 


■ B/F 


,Y 


LDA. 


<B/F> 


,Y 


STA. 


9 


\ 


.0444 


. Y 


LDA. 


<D444> 


, Y 


STA. 


10 


\ 


.CH/F 


. Y 


LDA. 


<CH/F> 


.Y 


STA. 


11 


\ 


• XFER 


, Y 


LDA. 


<XFER> 


, Y 


STA. 


12 


\ 


.RTS 


. Y 


LDA. 


<RTS> 


,Y 


STA. 


13 


DEY. MI UNTIL. 2F #B 


LDY. BEGIN. 




14 


\ 


. LEMIT 


, Y 


LDA, 


<LEMIT> 


, Y 


STA. 


15 


\ 


•BOOT 10 


- , Y 


LDA, 


300 


,Y 


STA. 


16 


DEY, MI UNTIL. SF #B 


LDY, BEGIN. 




17 


\ 


. NEWDISK 


, Y 


LDA. 


<NDISK> 


, Y 


STA. 


18 


\ 


. START 


, Y 


LDA. 


<START> 


, Y 


STA. 



19 DEY, MI UNTIL, 

20 60 MB LDA, <ZPMOVE> STA. 

21 YSAVE LOY. TNEXT. 

22 
23 



0 LABEL ROM-FRAGMENTS ( — ) 

1 PURPOSE: copy routines that can't 



2 


operate in 


romcard to an area in ram. 


3 








4 


. START 


to 


<START> 


5 


■ RTS 


to 


<RTS> 


6 


• CH/F 


to 


<CH/F> 


7 


.0444 


to 


<D444> 


8 


-B/F 


to 


<8/F> 


9 


.LEMIT 


to 


<LEMIT> 


10 


.XNEXT 


to 


<XNEXT> 


11 


.XFER 


to 


<XFER> 


12 


■MONITOR 


to 


<M0N> 


13 


. BANK1 


to 


<BANK1> 


14 


•BOOT 10 - 


to 


3D0 


IS 


RTS. 


to 


<ZPM0VE> 


16 








17 


NOTE: the same 


space can be loaded with 



18 fragment* usad by the disk version 

19 which manage bank switching differently 

20 
21 
22 
23 
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0 ( soft switch words for disk ram ) HEX 

1 

2 FRAG 0. MONITOR <MAIN> JSR. C08A LDA. 

3 FF69 JMP. 

4 FRAG D.B/F C009 STA. C003 STA. 

5 C005 STA. \ ,B>F JMP. 

6 FRAG D.XNEXT C08F LDA. C08F LDA. 

7 YSAVE LDY. TNEXT. 

8 FRAG D. RTS C008 STA. C002 STA. 

9 C004 STA. RTS, 

10 FRAG D.AUX PLA, TAY, PLA, C009 STA. 

11 C003 STA. COOS STA. PHA. TYA, PHA, RTS. 

12 FRAG D.MAIN PLA, TAY. PLA. C008 STA, 

13 C002 STA. C004 STA. PHA, TYA. PHA. RTS. 

14 FRAG D.D444 <MAIN> JSR. 

15 OFF «B LDX, 1 SB LDY. 

16 4C 8B LDA. FDFO STA, D444 JMP. 

17 FRAG D.CH/F C009 STA, C003 STA, 

18 C005 STA, \ .CH>F JMP, 

19 FRAG D.XFER X5 1* STA. X5 STY. 

20 C083 LDA. C083 LDA. XS )JMP. 

21 FRAG O.COISK YSAVE STY, XSAVE STX. 

22 <MAIN> JSR. <NDISK> JSR. <AUX> JSR. 

23 \ XYNEXT JMP. 

243 

0 ( soft switch words for disk ram ) HEX 

1 

2 FRAG D.ZPMOVE 300 STA, 301 STX. 

3 302 STY, PLA, 303 STA. PLA, 304 STA, 

4 0 *B LDY, 

5 BEGIN. NC 

S IF. 0 . Y LDA. TAX. 100 ,Y LDA. 

7 COOS STA. 100 ,Y STA. TXA, 



0 ( SOFT SWITCH WORDS FOR DISK RAM ) HEX 

1 

2 FRAG D. MONITOR set up main memory then 

3 call the Apple monitor. 

4 FRAG D.B/F BASIC/Forth Interface. 

5 

6 FRAG D.XNEXT return from bank 2 routine. 

7 

8 FRAG D. RTS reset banks. 

9 

10 FRAG D.AUX set up auxilliary ram. 

11 

12 FRAG D.MAIN sat up main ram. 

13 

14 FRAG D.D444 set up main ram and then 

15 jump to BASIC. 

16 

17 FRAG D.CH/F return character from BASIC. 

18 

19 FRAG D.XFER Jump to bank 2 routine. 

20 

21 FRAG D.CDISK set up main memory, erase 

22 Swyft disk, return to auxilliary memory 

23 

0 ( SOFT SWITCH WORDS FOR DISK RAM ) HEX 

1 • 

2 FRAG D.ZPMOVE 

3 PURPOSE: move page 0 from auxilliary 

4 memory to main, or vice versa: carry 

5 flag determines direction in the disk 

6 version only. 

7 save registers beginning at S300 . 
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8 0 ,Y STA, C009 STA. 



9 


ELSE, 


COO 8 


STA. 0 


,Y LDA. TAX. 


10 




100 , 


,Y LDA. 


C009 STA. 


11 




100 , 


,Y STA. 


TXA. 0 , Y STA. 


12 


ENDIF. 


INY 


, EQ 




13 


UNTIL. 


304 LDA, PHA, 303 LDA. PHA 


14 


302 LDY, 30' 


1 LDX, : 


300 LDA, RTS. 


15 











16 FRAG D.LEMIT SEI. <MAIN> JSR. 

17 Cl #8 LDY, 37 STY, 0 SB LOY, 36 STY. 

18 60 BB LDY, FDFO STY, TXA. 

19 FDED JSR. 36 LDA, F79 STA, 

20 FD SB LDA, 37 STA. FO SB LDA, 36 STA. 

21 <AUX> JSR, CLI. RTS. 

22 

23 FRAG D.LEMIT2 <LEMIT> JMP, 



sc r S 244 

0 ( soft switch words for disk ram ) HEX 

1 

2 FRAG D. START - 

3 <MAIN> JSR, C08D LDA. C08D LDA. 

4 DO SB LDA, XO 1+ STA, 0 SB LDY. XO STY. 

5 BEGIN, 

6 BEGIN, XO ) Y LDA. XO )Y STA, I NY, EO 

7 UNTIL, XO 1+ INC. EQ 

8 UNTIL. 

9 BO SB LDA. E063 STA. 

10 4C SB LDA, D43C STA. 

11 <B/F> DUP OFF AND SB LDA, D430 STA, 

12 SWAB OFF ANO SB LDA, D43E STA. 

13 <CH/F> DUP OFF AND 88 LDA, FDFt STA, 

14 SWAB OFF ANO SB LDA. FDF2 STA. 

15 <AUX> JSR. <XNEXT> JMP. 

16 

17 FRAG D . BOOT 

18 <AUX> JSR, C08F LDA, C08F LDA. 

19 FFF6 LDA. FFFE STA. FFF7 LDA. FFFF STA. 

20 D204 JMP, 

21 C08A LDA. <MAIN> JSR. 

22 0 88 LOA, 3F4 STA, FFFC )JMP, NOP. NOP. 

23 D200 , 3C8 . 3 A5 XOR C. 

245 

0 ( D. FRAGMENTS FOR OISK RAM ) HEX 

1 

2 LABEL DISK-FRAGMENTS 



3 


YSAVE STY. 5F 


SB 


LDY. 


BEGIN, 






4 


\ 


D . BOOT 28 - 


,Y 


LDA. 


3A0 


, Y 


STA. 


5 


\ 


D.ZPMOVE 


.V 


LDA. 


<ZPM0VE> 


,Y 


STA. 


6 


\ 


D.LEMIT 


,Y 


LDA. 


<LEMIT> 


.Y 


STA. 


7 


\ 


D. START 


, Y 


LDA. 


<START> 


, Y 


STA. 


8 


\ 


. NEWDISK 


, Y 


LDA. 


<NDISK> 


,Y 


STA. 


9 


DEY. MI UNTIL. 


, F 


SB LDY. BEGIN. 






10 


\ 


D.LEMIT2 


.Y 


LDA. 


<LEMIT2> 


.Y 


STA. 


11 


\ 


D.CDISK 


.Y 


LDA. 


<CDISK> 


, Y 


STA. 


12 


\ 


D.AUX 


, Y 


LDA. 


<AUX> 


, Y 


STA. 


13 


\ 


D.MAIN 


, Y 


LDA. 


<MAIN> 


, Y 


STA. 


14 


\ 


D.XNEXT 


, Y 


LDA. 


<XNEXT> 


, Y 


STA. 


15 


\ 


D. MONITOR 


, Y 


LDA, 


<MON> 


,Y 


STA. 


16 


\ 


D.B/F 


, Y 


LDA. 


<B/F> 


, Y 


STA. 



198 

8 if carry clear then move from auxilliary 

9 to main. 

10 else carry set so 

11 move from main memory to auxilliary. 

12 restore registers. 

13 

14 FRAG D.LEMIT 

15 PURPOSE: print character, x-reg has the 

16 character. 

17 set up main memory. 

18 modify Apple vectors. 

19 output character. 

20 restore auxilliary memory. 

21 

22 FRAG D.LEMIT2 

23 PURPOSE: Jump to printer routine. 



0 ( SOFT SWITCH WORDS FOR DISK RAM ) HEX 

1 

2 FRAG D. START 

3 PURPOSE: prepare for BASIC. 

4 set up main memory. 

5 set up for BASIC (SC08D). 

6 move and modify (see .START). 

7 restore auxilliary memory. 

8 
9 

10 

11 

12 FRAG D.800T 

13 PURPOSE: boot disk. 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 LABEL DISK-FRAGMENTS ( — > 

1 PURPOSE: copy routines that can't 

2 operate in ramcard to an area in ram. 

3 



4 


D.BOOT 28 - 


to 


3A0 


5 


D.ZPMOVE 


to 


<ZPMOVE> 


6 


D.LEMIT 


to 


<LEMIT> 


7 


D. START 


to 


<START> 


8 


.NEWDISK 


to 


<NDISK> 


9 


D.LEMIT2 


to 


<LEMIT2> 


10 


D.XNEXT 


to 


<XNEXT> 


11 


D. MONITOR 


to 


<MON> 


12 


O.B/F 


to 


<B/F> 


13 


D.D444 


to 


<D444> 


14 


O.CH/F 


to 


<CH/F> 


15 


D.XFER 


to 


<XFER> 


16 


D.MAIN 


to 


<MAIN> 
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17 


\ D.D444 


, Y LDA, 


<D444> 


,Y 


STA. 


18 


\ D.CH/F 


, Y LDA. 


<CH/F> 


, Y 


STA. 


19 


\ D.XFER 


, Y LDA. 


<XFER> 


, Y 


STA. 


20 


\ D.RTS 


, Y LDA. 


<RTS> 


,Y 


STA. 


21 


OEY, MI UNTIL, 








22 


YSAVE LDY. 


TNEXT. 








23 













200 

17 D.AUX to <AUX> 

18 D. RTS to <RTS> 

19 

20 NOTE: the same space can be loaded with 

21 fragments used by the rom version 

22 which manage bank switching differently 

23 
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0 ( START ) HEX 

1 

2 ( BELONGS IN WARM START > 

3 LABEL START YSAVE STY, ROM? LDA, EQ 

4 IF, 00 BB LDA, 3C STA. 42 STA. 

5 03 BB LDA. 30 STA. 43 STA, 

6 11 BB LDA. 3F STA. FF BB LDA. 3E STA. 

7 CLC. C31 1 JSR. 

8 ENDIF. <START> JMP, 

9 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

247 

0 ( FRAGMENTS MOVE-VARS ) HEX 

1 

2 T: FRAGMENTS ROM? IF ROM-FRAGMENTS 

3 ELSE DISK-FRAGMENTS ENDIF ; 

4 

5 FRAG .MOVE-VARS ROM? LDA. EQ 

6 IF, LOMEM 

7 DUP SWAB OFF AND BB LDA. 

8 3D STA. 43 STA. 

9 OFF ANO SB LDA, 3C STA. 42 STA. 

10 BOV 1- 

11 DUP SWAB OFF AND BB LDA. 3F STA. 

12 OFF AND BB LDA, 3E STA. 

13 C31 1 JSR. 

14 ENDIF. RTS. 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 LABEL START ( — ) 

1 PURPOSE: set up for BASIC. 

2 if using the disk version of Swyft 

3 (i.e., ROM? is equal to zero) then 

4 move from auxilliary to main from 

5 S300 through S1 1 FF to S300. 

6 

7 NOTE: called by WARM. 

8 

9 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 T: FRAGMENTS ( — ) 

1 PURPOSE: decide which set of machine 

2 code routines (disk versus rom) to 

3 copy from rom space to their own ram 

4 space. 

5 input: ROM? is zero if using the disk 

6 based version of Swyft. 

7 

8 FRAG .MOVE-VARS ( — ) 

9 PURPOSE: move BASIC variables in disk 

10 version of Swyft. 

11 in the disk version only: 

12 move, between aux to main memory. 

13 BASIC variables <1 200-1 5FF) 

14 and input buffer (200-2FF) 

15 

16 

17 

18 • 

19 

20 
21 
22 
23 
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scr 1 


t 248 




0 

1 

2 


( BEFORE AFTER ) HEX 




LABEL BEFORE -YSAVE STY. 




3 


\ .MOVE-VARS JSR , 0 KB LDY, 




4 


BEGIN, BASICO .Y LDA. 0 ,Y STA, 


1NY, 


5 


SO SB CPY. EQ 




6 


UNTIL. AO SB LDY, 




7 


BEGIN. BASICO .Y LDA. 0 ,Y STA. 


INY, EQ 


a 


UNTIL. 




9 


ROM? LDA. EO 




10 


IF, 02 KB LDA, 3D STA. 43 STA. 3F STA. 


1 1 


00 SB LDA. 3C STA. 42 STA. 




12 


FF BB LDA. 3E STA, 




13 


CLC. C31 1 JSR. 




14 


ENOIF, YSAVE LDY. TNEXT, 




15 






16 


LABEL AFTER YSAVE STY. 0 BB LDY. 




17 


BEGIN. 0 , Y LDA. BASICO ,Y STA. 


INY. 


18 


50 SB CPY, EQ 




19 


UNTIL. AO BB LDY. 




20 


BEGIN. 0 , Y LDA, BASICO ,Y STA. 


INY. EQ 


21 


UNTIL. SEC. \ .MOVE-VARS JSR. 




22 


YSAVE LDY, TNEXT. 




23 






249 






0 

1 

2 


( ? MOVETEXT ) HEX 




( shiftamount — ) 




3 


T: MOVETEXT DUP >R 




4 


BOC 2 DUP + EOS BOC - R> 0< 




5 


IF CMOVE ELSE CMOVE> ENDIF 




6 


BOT >R EBOT >R 




7 


DUP BOC *TO DUP BOT +T0 




a 


DUP BOS +TO OUP EOS +T0 




9 


DUP EBOT +T0 OEOS ♦TO 




10 


FIXEND R> R> ♦ALIGN 




11 


TOP LOCLIN LINADR REWINDOW TOPLINE 


12 


OFF FRESH RENCUR OFF 




13 


0 NEWBOTTOM TO ; 




14 






15 


T: ? MOVETEXT C204 V9 >R 




16 


R9 BOC - DUP NEWBOTTOM TO 




17 


IF BEOT EOS 100 + - BOC ♦ R9 U< 




18 


R9 BOTTOM U< OR 




19 


IF BOC C204 V! 0 NEWBOTTOM TO 




20 


ENDIF ENDIF R> DROP ; 





21 

22 

23 



scr a 250 

0 ( MARGIN-CHANGES ) HEX 

1 T: MARGIN-CHANGES COC1 V0 MARGINS - 

2 IF CDC1 V6 OMAX 30 UMIN 

3 DUP MARGINS TO CDC1 V! ENDIF 

4 

5 DOCC V9 PLENS - 

6 IF LINES PAGES - 0 DOCC Ve 

7 ABOVES BELOWS + 1+ UMAX OFF UMIN 



0 LABEL BEFORE { — ) 

1 PURPOSE: prepare for BASIC. 

2 if the disk version then move BASIC 

3 variables (.MOVE-VARS). 

4 copy the first $50 and the last S60 

5 bytes from BASICO to page 0. 

6 if the disk based Swyft then 

7 move from aux to main memory. 

8 the basic variables and page 2. 

9 

10 LABEL AFTER ( — ) 

11 PURPOSE: return from BASIC. 

12 copy the first 50 and the last 60 

13 (hex) bytes from page 0 to BASICO. 

14 if the disk version then move BASIC 

15 variables (.MOVE-VARS). 

16 

17 

18 

19 

20 
21 
22 
23 

0 T: MOVETEXT ( shiftamount -- ) 

1 PURPOSE: move the beginning of text so 

2 that more (or less) room is available 

3 for writing programs. 

4 

5 move bytes up or down from BOC to 

6 BOC+shiftamount. 

7 save old EBOT and BOT values (for use 

8 by +ALIGN) . 

9 update BOC. BOT. BOS. EOS, EBOT. CEOS 

10 by adding shiftamount. 

11 put a form feed at the end (FIXEND). 

12 align the page table (using old EBOT and 

13 old BOT). 

14 rewindow and show a fresh display. 

15 turn NEWBOTTOM off. 

16 

17 T: ? MOVETEXT ( — ) 

18 PURPOSE: prevent text from moving too 

19 far down. 

20 if BTX does not equal BOC and 

21 if it is not possible to move text down 

22 then keep the BOC the same. 

23 



0 T: MARGIN-CHANGES ' 

1 FURPOSE: after a BASIC command update 

2 margins (ie. left margin, page length, 

3 header, footer). Note that there is an 

4 interaction of these variables (ie, 

5 they affect each other), in particular. 

6 PLENX (page length) is not set below 

7 values of ABOVE* plus BELOW*; also 
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8 ABOVEX - BELOWX - 

9 UM/MOD SWAP 0- 0- - CA U< 

10 IF DOCC V8 OMAX 

11 ABOVEX BELOWX + 1+ UMAX OFF UMIN 

12 DUP PLENX TO DOCC V! 

13 ELSE PLENX DOCC V! ENOIF ENDIF 

14 

15 C1C2 V9 ABOVEX - 

16 IF CIC2 V8 OMAX 

17 PLENX 1- BELOWX - UMIN HEADX OMAX 

18 UMAX DUP ABOVEX TO C1C2 V! ENDIF 

19 

20 C2CS V8 BELOWX - 

21 IF C2C5 V8 OMAX PLENX 1- 

22 ABOVEX - UMIN LPAGEX 2 ♦ OMAX 

23 UMAX DUP BELOWX TO C2C5 V! ENDIF ; 

251 

0 ( WIDTHCHANGE SPACINGCHANGE ) HEX 

1 

2 T: WIDTHCHANGE 

3 07C9 V8 WIDE - 

4 IF D7C9 V8 WIDE U< DUP 

5 IF DROP OCA 0 

6 WIDE 0 D7C9 V8 

7 UM/MOD SWAP 0- 0- - 

8 UM/MOD SWAP 0- 0- - PAGES U< 

9 ENDIF 0- 

10 IF D7C9 V8 50 UMIN 10 UMAX 

11 DUP D7C9 V! WIDE TO 

12 7000 TOP TO 80T BOT NEWPAGES 

13 ELSE WIDE D7C9 V! 

14 ENDIF ENDIF ; 

15 ; s 

16 T: SPACINGCHANGE 

17 SPACING D300 V8 OMAX 2 UMIN U< 

18 IF LINES PAGES - 0 PLENX ABOVEX - 

19 BELOWX - U2/ UM/MOD SWAP 0- 0- - CA U< 

20 IF 2 SPACING TO 2 ELSE 1 ENDIF D3D0 V! 

21 ELSE D3D0 V9 OMAX 2 UMIN DUP 

22 SPACING TO D3D0 V! ENDIF ; 

23 



204 

8 PLENX cannot be set so that page table 

9 overflows. 

10 

11 left margin can range from 0 to S30. 

12 

13 page length ranges from abX*-beX+1 to SFF 

14 if the change in page length will not 

15 overflow the page table then make the 

16 change; otherwise reset BASIC value. 

17 set error# to 19 

18 

19 top margin ranges from plX*beX-1 to heX. 

20 

21 bottom margin ranges from plX+abX-1 to 

22 lpX*2. 

23 

0 T: WIDTHCHANGE ( — ) 

1 PURPOSE: change the horizontal width of 

2 the text, width will not be changed if 

3 it would cause too many pages for the 

4 page table. 

5 

6 if the BASIC variable WIX and WIDE are 

7 not the same then 

8 if the new width is less than the 

9 current width then 

10 figure out if the new width would 

11 overflow the page table. 

12 if there would be no overflow then make 

13 the change. 

14 else keep the same width with no 

15 change, set error# to 19 

16 

17 NOTE: the width can range from S10 to 

18 S50. 

19 

20 
21 
22 
23 
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0 ( CHECKCHANGES ) HEX 

1 T: CHECKCHANGES WIDTHCHANGE 

2 MARGIN-CHANGES D0C1 V8 PAGEX - 

3 IF D0C1 V8 PAGEX TO 

4 7000 TOP TO EBOT BOT NEWPAGES ENDIF 

5 SPACING D3D0 V8 OMAX 2 UMIN U< 

6 IF LINES PAGES - 0 PLENX A80VEX - 

7 BELOWX - U2/ UM/MOD SWAP 0- 0- - CA U< 

8 IF 2 SPACING TO 2 ELSE 1 ENOIF D300 V! 

9 ELSE D3D0 V8 OMAX 2 UMIN DUP 

10 SPACING TO D3D0 V! ENDIF 

11 PLENX BELOWX - ABOVEX - SPACING 2 - 

12 IF 0 2 UM/MOD + ENOIF 

13 DUP LONG - 

14 IF DUP LONG TO 7000 TOP TO 

15 BOT BOT NEWPAGES 

16 ENDIF DROP 

17 CCDO V8 LPAGEX - 

18 IF CCDO V8 OMAX 1 UMAX BELOWX 2 - UMIN 

19 DUP LPAGEX TO CCDO V! ENDIF 

"ni-c OCI an" rn rrng ye | TNCNOX TO 



0 T: CHECKCHANGES < — ) 

1 PURPOSE: adjust Swyft for changes in 

2 BASIC variables. 

3 

4 after 8ASIC returns to Forth then make 

5 changes in the following if needed: 

6 width (WIDTHCHANGE) 

7 margin (MARGIN-CHANGES) 

8 pagination (PAGEX) 

9 page length (PLENX) i 

10 spacing (SPACING) 

11 ( else set error# to 19 ) 

12 margin above (ABOVEX) 

13 margin below (BELOWX) 

14 page flag (PFLAGX) 

15 modem initialization (SENDX and 

16 SETMODEM) 

17 printer strings (SAVESTRINGS) 

18 ram key translation and command tables 

19 (2RAMKEYS) 

20 bottom of text '7M0VETEXT1 
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253 

0 < TOINPUT APPEND ) HEX 

1 

2 ( address count — ) 

3 T: TOINPUT 

4 0 OVER 200 ♦ ! 

5 200 SWAP CMOVE 
S 300 200 

7 00 I C9 ?DUP 

8 IF 20 U< 

9 IF 20 I C! 

10 ENOIF ENDIF 

1 1 LOOP : 

12 

13 ( char — | insert char at OEOS ) 

14 T: APPEND EBOT C! 

15 1 EBOT +TO 1 EOS +TO 

16 -1 DIRTY TO FIXEND ; 

17 

18 

19 

20 
21 
22 
23 
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0 ( TOBASIC > HEX 

1 

2 ( address count — ) 

3 

4 T: TOBASIC TOINPUT VALIDATE DROP 

5 OFF RETN TO 0 COL* TO 

6 0 BASICO 24 ♦ C! 

7 RESETVARS LOAOSTRINGS BEFORE 

8 BEGIN F>8 

9 PAGES OCA U< 

10 EBOT 100 ♦ BEOT U< ANO DUP 0- 

11 IF BEEP OFF OFF C! ENDIF 

12 RETN 7F U< AND 

13 WHILE RETN ?DUP 

14 IF 0 DO 20 APPEND LOOP 

15 ENDIF RETNCHR 7 - 

16 IF BEEP 

17 ELSE RETNCHR ID UMAX DUP APPEND 

18 21 U< IF FRESH ENDIF 

19 ENDIF 

20 REPEAT AFTER FRESH VALIDATE 

21 IF CHECKCHANGES ENDIF ; 

22 
23 

255 

0 ( BASIC ) HEX 

1 

2 T: BASIC • 

3 AUTOEXTEND OFF 

4 60S EOS OVER WR! 

5 BEGIN WRAP WR9 WC9 

6 ENDWRAP DROP WR0 >R 

7 >R 2DUP - R> UMIN 



0 T: TOINPUT ( address count — ) 

1 PURPOSE: pass characters to BASIC. 

2 

3 move from text address to BASIC input 

4 area by the count of bytes. 

5 insure that no character is Less than 

6 $ 20 . 

7 

8 

9 T: APPEND ( char — ) 

10 PURPOSE: insert character from BASIC at 

11 OEOS. 

12 

13 if text is full, discard and beep. 

14 enter a character arriving from 8ASIC 

15 at the end of selection, 

16 updating pointers, and setting DIRTY. 

17 

18 

19 

20 
21 
22 
23 



0 T: TOBASIC ( address count — ) 

1 PURPOSE: call BASIC to interpret one 

2 Line and place its output into text. 

3 only display text after a space or 

4 carriage return, and when done 

5 respond to changes to control variables. 
S 

7 move text to BASIC area, validate 

8 variables, set RETN and COLS to zero, 

9 set BASICO ADDR 24 + to zero. 

10 reset BASIC variables. 

11 BEFORE sets up BASIC for disk version. 

12 begin call BASIC interface 

13 while RETN and enough pages and room 

14 insert spaces in text (RETN gives 

15 the horizontal position). 

16 if a BASIC error 

17 then beep, set errors to 15 

18 else insert character in text 

19 (BASIC character returned in RETNCHR). 

20 fresh screen 

21 repeat AFTER resets disk vers from BASIC 

22 if any BASIC variables have changed 

23 then recalculate text format 

0 T: BASIC ( -- ) 

1 PURPOSE: interpret multiple lines of 

2 BASIC and insert response in text. 

3 

4 autoextend selection. 

5 turn off cursor. 

6 interpret selected lines and place their 

7 output into text (TOBASIC). 
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8 TOBASIC 

9 DUP 1- R> DUP WR! U< 

10 UNTIL EBOT OVER - >R 

11 DUP BEOT R9 - R9 CMOVE 

12 R> NEGATE BEOT *TO OUP EBOT TO 

13 BOS OEOS TO 

14 NEWMARK NEWNO SHOW 

15 BEOT EOT - 

16 IF LEXCUR ELSE RENCUR ENDIF 

17 0 OLIN TO ENDFORM 

18 NEWBOTTOM IF NEWBOTTOM MOVETEXT ENDIF 

19 -1 EXTENDED TO ; 

20 
21 
22 
23 



scr S 256 

0 ( FIND-PREV ) HEX ;S 

1 

2 ( add r -- addr ) 

3 LABEL FIND-PREV YSAVE STY. 

4 0 SP) LDA, TAY, 0 #8 LDA, XO STA. 

5 1 SP) LDA, XO 1+ STA, 

6 BEGIN, OEY, OFF SB CPY. EQ 

7 IF, XO DEC. ENDIF. 

8 XO )Y LDA. 00 SB CMP. NE 

9 IF. 01C SB CMP. ENDIF, EO 

10 UNTIL. 

11 TYA, 0 SP) STA. XO 1+ LDA. 1 SP) STA, 

12 YSAVE LDY, TNEXT , 

13 

14 ( addr — addr ) 

15 LABEL FIND-NEXT YSAVE STY. 

16 0 SP) LDA. TAY. 0 SB LDA. XO STA. 

17 1 SP) LDA. XO 1* STA. 

18 BEGIN, INY. EQ IF. XO 1+ INC. ENDIF. 

19 XO ) Y LDA. 00 #8 CMP. NE 

20 IF. 01 C SB CMP. ENDIF. EQ 

21 UNTIL. 

22 TYA. 0 SP) STA, XO 1+ LOA, 1 SP) STA. 

23 YSAVE LDY. TNEXT. 

257 

0 ( COMPARE ) HEX ;S 

1 ( addr-1 lent addr2 Lan2 — flag ) 

2 LABEL COMPARE 1 SP) LDA. 5 SP) CMP, EQ 

3 IF, 0 SP) LDA. 4 SP) CMP. ENDIF. CS 

4 IF. 4 SP) LDA. XO STA. 

5 5 SP) LDA. XO 1+ STA. 

6 ELSE. 0 SP) LDA. XO STA. 

7 1 SP) LOA. XO 1* STA. ENDIF. 

8 BEGIN. XO LDA. XO 1+ ORA. XI STA. SEC. 

9 2 X) LDA. 6 X) SBC. EQ 

10 IF. OFF 08 LOA, ELSE. 0 SB LDA. ENDIF. 

11 XI ORA, NE 

12 WHILE, XO DEC. XO LDA. OFF SB CMP. EO 

13 IF. XO 1+ DEC. ENDIF. 

14 CLC, 6 SP) LDA, 01 SB ADC. 6 SP) STA. 

15 7 SP) LDA. 00 SB ADC. 7 SP) STA. 

16 CLC. 2 SP) LDA, 01 SB AOC. 2 SP) STA. 



8 leave the selection selected. 

9 show fat cursor 

10 unless at the end of the text. 

11 wrap text (ENDFORM). 

12 if the bottom of text has been changed 

13 than movetext. 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 ( sort words ) ;S 

1 

2 this is Mino’s sort routine that was not 

3 implemented. 

4 

5 LABEL FIND-PREV 

6 

7 

8 LABEL FIND-NEXT 

9 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 ( sort words ) ;S 

1 

2 this is Mino's sort routine that was not 

3 implemented. 

4 

5 

6 LABEL COMPARE 

7 

8 ' i 

9 

10 
11 
12 

13 

14 

15 

16 
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17 3 SP) LDA. 00 »B ADC. 3 SP) STA. 17 

18 AGAIN. XI LDA. EQ 18 

19 IF, SEC. 0 SP) LDA. 4 SP) SBC. 19 

20 1 SP) LDA. S SP) SBC, ENDIF. NC 20 

21 IF. OFF #8 LDA, ELSE. 00 #B LDA. ENDIF. 21 

22 I NX, I NX. I NX, INX, INX, INX, 22 

23 0 SP) STA. 1 SP) STA. TNEXT . 23 



scr # 258 

0 ( SWAP-NEXT ) HEX ;S 

1 

2 T: SWAP-NEXT - 

3 CURPOS DUP 1- FIND-NEXT 

4 DUP 1+ OVER FIND-NEXT 

5 OVER - FILLED-LEN MIN >R >R OVER - 

6 FIELD-LEN MIN R> R> COMPARE 

7 IF CURPOS 1- DUP FIND-NEXT 

8 DUP FIND-NEXT DUP >R OVER - >R DUP 1* 

9 R> REVERSE OVER - >R DUP 1+ R> 

10 R> REVERSE R> OVER - SWAP 1+ SWAP 

11 REVERSE -1 SWAPPED TO 

12 ENDIF, ; 

13 

14 

15 

16 NOTE: this word has baen embedded into 

17 ths next word. SORT. 

18 

19 

20 
21 
22 

23 

259 

0 ( SORT ) HEX ;S 

1 

2 T: SORT EOS OEOS TO 8EOT EOS EOT BEOT - 

3 DUP EOS * TOT TO CMOVE BOS DUP 

4 FIND-PREV DUP 1* BOS TO - DUP OFFSET TO 

5 EOS DUP FIND-PREV 

6 - SWAP - OMAX FIELD-LEN TO 

7 BEGIN 0 SWAPPED TO START-AOOR CURPOS TO* 

8 BEGIN CURPOS DUP 1- FIND-NEXT DUP 1+ 

9 OVER FINO-NEXT OVER - FILLED-LEN UMIN 

10 >R >R OVER - FIELD-LEN UMIN R> R> 

1 1 COMPARE 

12 IF CURPOS 1- OUP FIND-NEXT 

13 DUP FIND-NEXT DUP >R OVER - >R DUP 

14 1+ R> REVERSE OVER - >R DUP 1+ R> 

15 R> REVERSE R> OVER - SWAP 1+ SWAP 

16 REVERSE -1 SWAPPED TO 

17 ENDIF 

18 CURPOS FIND-NEXT 1+ DUP CURPOS TO 

19 EOS 1- FIND-PREV 1+ OUP LASTREC TO - 

20 UNTIL LASTREC EOS TO SWAPPED 0- 

21 UNTIL EOS TOT OVER - EOT OVER - SWAP 

22 CMOVE EOT TOT - BEOT TO EOS EBOT TO 

23 7000 TOP TO BOT BOT NEWPAGES ; 



0 ( sort words ) ;S 

1 

2 this is Mino's sort routine that was not 

3 Implemented. 

4 

5 T: SWAP-NEXT 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 ( sort words ) ;S 

1 

2 this is Mino's sort routine that was not 

3 implemented. 

4 

5 T: SORT 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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sc r # 260 



0 


0 


LABEL ACT ( — ) 


1 


1 


PURPOSE: turn disk on. * 


2 


2 




3 


3 


LABEL DEACT ( — > 


4 


4 


PURPOSE: turn disk off. 


5 


5 




6 


6 


T: PROT? ( — flag ) 


7 


7 


RESULT: true if disk is write protected. 


8 


8 




9 


9 


T: SEEK ( # — ) 


10 


10 


PURPOSE: seek to track # 


1 1 


11 




12 


12 


T: RECAL ( — > 


13 


13 


PURPOSE: bang up against seek stop and 


14 


14 


call that track 0. 


15 


15 




16 


16 


T: DISKON ( — ) 


17 


17 


PURPOSE: set up disk for test of EDDE or 


18 


18 


Apple header. 


19 


19 


go to 1st text track: 


20 


20 


turn disk on. wait 224 milliseconds. 


21 


21 


recalibrate, and seek to track 1 


22 


22 




23 


23 
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a ( ACT DEACT PROT? DON SEEK HOME ) HEX 
1 

2 LABEL ACT COEA LDA, C0E9 LDA, TNEXT, 

3 

4 LABEL DEACT C0E8 LDA. TNEXT. 

5 

6 T: PROT? COED C8 DROP 7F COEE C0 U< ; 

7 

8 < track# — ) 

9 t: SEEK 2* <SEEK> OA MS : 

10 

11 T: RECAL 50 TRACK TO 0 SEEK : 

12 

13 T: DISKON ACT EO MS RECAL 1 SEEK ; 



14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 T: READ ( t — ) 

1 PURPOSE: raad track t. 

2 

3 saak to track t. 

4 raad track. 

5 if track # does not match then 

6 recalibrata. seek, raad. 

7 if still no match 

8 than beep, set error# to 31 

9 if the checksum does not match then 

10 reread. 

11 if still no match 

12 then beep, set error# to 32 

13 

14 NOTE: during a read a valid checksum 

15 is zero • (0) . 

16 

17 

18 

19 

20 
21 
22 
23 



scr » 


1 262 






0 


( READ ) HEX 


0 


T: GET { — > 


1 




1 


PURPOSE: copy an extended selection from 


2 


( track# — )- 


2 


disk to ram. 


3 


T: READ >R R§ SEEK <READ> 


3 




4 


B3FF CS R8 - 


4 


turn disk on, seek to track 0. 


5 


IF RECAL R8 SEEK <READ> 


5 


not an edde disk: 


6 


B3FF C8 R8 - 


6 


turn disk off, set error# to 7, stop 


7 


IF BEEP 


7 


else read track 0. 
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8 ENDIF ENDIF CHECKSUM 

9 IF <READ> CHECKSUM 

10 IF SEEP 

11 ENDIF ENDIF R> DROP ; 

12 

13 ;S During a read, a valid checksum is 0 

14 

15 LABEL TLEN 

16 DEX. DEX, OC #0 LDA, 1 SP) STA. 

17 0 80 LDA. 0 SP) STA. TNEXT . 

18 

19 

20 
21 
22 
23 

263 

0 ( GET ) HEX 

1 T: GET ACT EO MS ?EDDE 

2 IF 1 READ 0400 ORIGIN ADDR - OUP >R 

3 EOS ADDR ♦ 9 SOS ADDR R> ♦ 9 

4 DUP ORIGIN ADDR - FIRST TO - SIZE TO 

5 BEOT U2/ EBOT U2/ SIZE U2/ + 80 ♦ U< 

6 IF DEACT BEEP EXIT ENDIF SIZE CT TO 

7 EOS BOS TO EOS OEOS TO EOS PTR TO 

8 FIRST 0 COO UM/MOD 1* READ 

9 >R B400 R9 + PTR SIZE 

10 COO R9 - UMIN CMOVE 

11 R> COO - SIZE + F400 OVER U< 

12 IF DROP 0 ENDIF SIZE TO 

13 CT SIZE - DUP FIRST *T0 PTR +T0 

14 BEGIN SIZE 

15 WHILE FIRST 0 COO UM/MOD 

16 1+ READ DROP 

17 B400 PTR SIZE COO UMIN OUP >R CMOVE 

18 R9 PTR +T0 R9 FIRST ♦TO 

19 R> NEGATE SIZE >T0 

20 REPEAT CT EBOT +T0 CT EOS >T0 

21 EBOT CT - BOT NEWPAGES FLUSH 

22 -1 EXTENDED TO -1 DIRTY TO 

23 ENDIF DEACT ; 



214 

6 get disk's selection parameters. 

9 f irst-bos-origin size-ct-eos-bos . 

10 check: selection won't fit: beep stop. 

11 otherwise, move selection from disk to 

12 current text, update page table. 

13 clear queues, set dirty bit. 

14 turn disk off. 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 T: <LOAD> ( Rtracks -- ) 

1 PURPOSE: load Stracks from disk. 

2 copy code fragments to S0800. 

3 show sign on message. 

4 set disk# and olddisk# from disk. 

5 read all tracks and clear dirty bit. 

6 

7 T: LOAD ( — ) 

8 PURPOSE: load only the number of tracks 

9 necessary (SAVED) and reinsert gap. 

10 read and load parameters. 

11 load compressed text. 

12 restore gap to text. 

13 warmstart. 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 


0 


T: DRAG ( — ) 


1 


1 


PURPOSE: drag text from the current 


2 


2 


universe to the text on another disk. 


3 


3 




4 


4 


calculate # of tracks, needed for saving 


5 


5 


read track 1 . / 


6 


6 


find out R of tracks used on disk. 


7 


7 


if there are enough tracks left on disk 


8 


8 


move selected text to top of text area 


9 


9 


<load> text from disk. 


10 


10 


turn off drive. 


11 


11 


set dirty bit. 


12 


12 


move selected text to EBOT (3 reverses 


13 


13 


and restore gap. 


14 


14 


make sure last character is form feed. 


IS 


15 


add selection to EBOT. 


16 


16 


align page table. 
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17 
1 8 

19 

20 
21 
22 
23 
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0 { .UTABLE ) HEX 

1 

2 FRAG . LTABLE 



3 


\ 


NOOP 


9 


( 


0 > 






4 


\ 


DELETE 


e 


( 


1 ) 






5 


\ 


PRINT 


• 


( 


2 ) 






6 


\ 


NOOP 


• 


( 


3 was SORT ) 


7 


\ 


NOOP 


9 


< 


4 


DISK - was SAVE 


8 


\ 


SEND 


9 


( 


5 ) 






9 


\ 


GET 


9 


( 


6 ) 






10 


\ 


PASTE 


$ 


( 


7 ) 






11 


\ 


BASIC 


9 


( 


8 ) 






12 


\ 


.MON 


9 


( 


9 


was 


MON ) 


13 


\ 


NOOP 


9 


( 


0A 


was 


BOOT7.5 ) 


14 


\ 


NOOP 


9 


( 


0B 


was 


BOOTABLE ) 


15 


\ 


CONTROL 


9 


( 


OC 


was 


STOPSEND ) • 


16 


\ 


NOOP 


9 


( 


00 


was 


STARTSENO ) 


17 


\ 


NOOP 


9 


( 


OE) 






18 


\ 


NOOP 


9 


( 


OF) 






19 


\ 


NOOP 


9 


( 


10) 






20 


\ 


N00P 


■ 


( 


11) 






21 


\ 


NOOP 


9 


( 


12) 






22 


\ 


NOOP 


9 


( 


13) 






23 


\ 


NOOP 


9 


( 


14) 
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0 ( 
1 

2 \ 


LOOKUP LTABLE ) HEX 


NOOP 


•( 15 ) 


3 \ 


NOOP 


( 16 ) 


4 \ 


NOOP 


( 17 ) 


5 \ 


NOOP 


( 18 ) 


6 \ 


NOOP 


( 19 > 


7 \ 


NOOP 


( 1 A ) 


8 \ 


TAB 


< IB ) 


9 \ 


ENTER 


( 1C::ASCII CHARS ) 


10 EDDE 


( magic number ) 


11 

12 LABEL LOOKUP 


0 SP) LDA. ff #B CMP, 


13 IF, \ ENTER 


JMP , 



14 ENOIF. I NX, INX, .A ASL, 

15 YSAVE STY, TAY, 

16 RTABLE ,Y LDA, X5 STA, 

17 RTABLE 1+ ,Y LDA. X5 1+ STA. 

18 YSAVE LDY, X5 )JMP, 

19 

20 
21 
22 
23 
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17 delete selection if too many pages. 

18 show display. 

19 warmstart. 

20 else drop return stack and turn drive 

21 off. 

22 error# is 5 means no more room 

23 error# is 6 means too many pages 



0 T: WRITE ( t -- flag ) 

1 PURPOSE: write to disk track t. 

2 seek to track t 

3 store serial # at B3FC 

4 and checksum at B3FE 

5 store track # at B3FF 

6 write the track (see <WRITE>) 

7 check for "ED DE DA" header 

8 not there: recalibrate, seek, write 

9 still not there: 

10 beep, return zero, set error# to 30 

11 return 1 for success 

12 

13 T: APPLEDISK ( — ) 

14 PURPOSE: boot Apple disk. 

15 if text is dirty and 

16 if text is empty then boot Apple disk. 

17 else beep, set error# to 4 

18 else boot Apple disk. 

19 

20 
21 
22 
23 



0 T: WRITES ( address hi+1 lo — flag ) 

1 PURPOSE: write a range of tracks to the 

2 disk. 

3 write tracks lo through hi, inclusive 

4 in 3K hunks, beginning at address 

5 true ■ success 

6 

7 WARNING: the flag is FALSE after 

8 successfully writing the last COO bytes 

9 in memory (from F400 to FFFF) so do not 

10 use the flag if you are writing the 

11 last COO bytes. 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( BUG RP! MAIN ) HEX 

1 

2 LABEL BUG < — flag ) 

3 YSAVE STY. 0 BB LDY, SPO BB CPX. NE 

4 IF. SPO BB LDX. DEY. ENDIF. 

5 DEX. DEX. 0 SP) STY, 1 SP) STY. 

6 YSAVE LDY. TNEXT, 

7 

8 LABEL RP! ( — ) TXA, 04F SB LDX, 

9 TXS , TAX. TNEXT, 

10 

11 T: MAIN RP! 

1 2 BEGIN ?X 

13 IF L EXREX 

14 ELSE 

15 ?K IF 8K OUP >R LOOKUP R> LASTC TO 

16 ENDIF 

17 ?M IF MAPPEND ENDIF 

18 BELL? IF BEEP 0 BELL? TO ENDIF 

19 ENDIF 

20 QUE 7BLINK 

21 BUG IF BEEP BEEP BEEP BEEP ENDIF 

22 AGAIN ; 

23 
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0 ( WARM ) HEX 

1 

2 T: WARM DEACT FRAGMENTS START 

3 0 LEXXING TO 0 BELL? TO 

4 FLUSH 

5 SETDISP 

6 36A5 39E ! 

7 SETMODEM 

8 0 LINESCOUNT TO 

9 0 PRINT? TO 

10 7RAMKEYS 

11 -1 TEOS TO 

12 PREALIGN <ENDFORM> 

13 TOP LOCLIN LINADR REWINOOW 

14 FRESH 

15 NARROW EOT BEOT - OR 

16 IF LEXCUR ELSE RENCUR ENDIF 

17 MAIN ; 

18 

19 

20 
21 
22 
23 
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0 ( 7RAMKEYS ) HEX 

1 

2 LABEL 7RAMKEYS ( — ) 

3 \ .MSGO OB + RTABLE 3A + 

4 2DUP LDA, CMP, EQ 

5 IF. >R 20UP 1+ LDA, 1+ CMP. EQ 

6 IF. >R 2DUP 2 + LDA, 2 + CMP, EQ 

7 IF, >R 3 + LDA. 3 ♦ CMP. EQ 



0 T: SAVE ( — ) 

1 PURPOSE: save the text to disk. 

2 assumes EDDE disk turning at track 1 

3 with matching old disk S 

4 

5 if write protected then beep 

6 else collapse the gap, get new disks 

7 calculate the number of tracks needed 

8 to save the text and store in SAVED 

9 write text to disk 

10 if successful then old disk number 

11 equals the newly disk number 

12 calculated disk number, clear the 

13 dirty bit, write boot 0 and 

14 if that is successful, 

15 write the rest of the program image 

16 else restore original disk number 

17 move text back into its original 

18 position. 

19 

20 T: IMAGE ( flag — ) 

21 PURPOSE: Write edde image if TRUE 

22 in blocks SI 3 thru SI 6 

23 



0 T: DISK < ~ ) 

1 PURPOSE: smart disk command. 

2 turn disk on. 

3 check up to two times for EDDE header. 

4 if a Swyft disk and 

5 if text is empty then load. 

6 else (not empty) <read> the disk and 

7 if diskB matches then save. 

8 else (not the same disk) and 

9 if dirty and 

10 if the whole text has been selected 

11 then drag the text else beep. 

12 else (not dirty) and 

13 if the bootupB * olddiskB and 

14 if the last command was Disk 

1 5 then save . 

16 else beep and set errors to 2 

17 else (no match) and 

18 if there is a selection then drag. 

19 else load. 

20 else seek to track 0 and 

21 if Apple disk then load 

22 else save text, write edde image (disk) 

23 turn disk off. 1 

0 

1 

2 

3 

4 

5 

6 
7 
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8 IF, TNEXT, 

9 R> R> R> ENDIF, ENDIF, ENDIF. ENDIF, 
10 

1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
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0 ( RAMKEYS ) HEX 

1 

2 LABEL RAMKEYS. ( — ) 

3 \ .XLAT OUP OFF AND #B LDA, XO STA, 

4 SWAB OFF AND 8B LDA, XO 1+ STA. 

5 HIMEM OUP OFF AND 8B LDA, XI STA, 

6 SWAB OFF AND KB LDA, XI 1+ STA, 

7 \ . LTABLE DUP OFF AND 8B LDA. X2 STA. 

8 SWAB OFF AND 8B LDA, X2 1+ STA, 

9 RTABLE OUP OFF AND 8B LDA, X3 STA. 

10 SWAB OFF AND 8B LDA. X3 1* STA. 

11 YSAVE STY. IF 88 LDY. 

12 BEGIN, XO )Y LDA. XI )Y STA. DEY. MI 

13 UNTIL, 3F 8B LDY. 

14 BEGIN. X2 )Y LDA. X3 )Y STA. OEY, MI 

15 UNTIL, RTABLE 3A + \ .MSGO OB ♦ 

16 20UP LDA. STA. 

17 2 DUP 1+ LDA, 1+ STA. 

18 2DUP 2 + LDA. 2 + STA, 

19 3 + LDA. 3 ♦ STA. 

20 YSAVE LDY. TNEXT. 

21 
22 
23 
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0 ( INIT <INIT> ) HEX 

1 

2 LABEL INIT 0 8B LDA. BOTTOM STA, 

3 BOV SWAB OFF AND 8B LDA. BOTTOM 1* STA. 

4 EOV 1- OFF AND 88 LDA. EOT STA. 

5 EOV 1- SWAB OFF AND 8B LDA. EOT 1+ STA. 

6 30 88 LDA. YWRAP STA. 

7 

8 T: <INIT> 0 QOUT TO 0 QIN TO 0 CHAR TO 

9 0 MQIN TO 0 MQOUT TO 0 TOP TO 

10 50 WIDE TO 36 LONG TO BOTTOM BOT TO 

11 BOT BOO TO BOT 1+ EBOT TO BOT BOS TO 

12 EOT 1- BEOT TO 1D1C 8E0T ! EBOT EOS TO 

13 BOS OEOS TO BEOT EBOT - GAP TO 

14 0 LOT TO 0 POT TO SERIALS 0LDISK8 TO 

15 1C BOT C! BOT REWINDOW 

16 -1 EXTENDED TO 0 NARROW TO 0 DIRTY TO 



8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 FRAG .LTABLE ( — ) 

1 PURPOSE: main control character 

2 execution vector table. 

3 

4 control keys are translated by using the 

5 .XLAT table into an index which is used 

6 to access the command table. .LTABLE. 

7 control keys that are not used can have 

8 a NOOP in the command table, .LTABLE, 

9 and/or a zero for that key in the 

10 .XLAT table (or both). 

11 both .XLAT and .LTABLE are downloaded 

12 into ram so that they may be modified 

13 by the user with a BASIC program. 

14 the magic number is used to reinitialize 

15 the ram tables. this number is the 

16 version number in .MSGO. 

17 

18 

19 

20 
21 
22 
23 

0 LABEL LOOKUP ( index — ) 

1 PURPOSE: execute element of LTABLE. 

2 

3 if the index is greater than a form 

4 feed (1C) then process it as a 

5 character. 

6 remove character from stack, multiply by 

7 2 (ie, ASL), store value from RTABLE + 

8 2*index in X5 and jump to the address 

9 at XS. 

10 

11 NOTE: RTABLE is ram equiv to LTABLE. 

12 

13 

14 

15 

16 
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17 


100 BL1 TO 200 BLO TO 


17 


18 


INITBASIC SAVESTRINGS 


18 


19 


-1 LINENDS TO 1609 SENDS TO 


19 


20 


2 P FLAGS TO 0 PAGES TO 1 SPACING TO 


20 


21 


0 -LF TO 0 .BL TO 0 MARGINS TO 


21 


22 


6 ABOVES TO 6 BE LOWS TO 3 LPAGES TO 


22 


23 


42 PLENS TO RAMKEYS ; 


23 



T: <LOAD> >R B400 800 COO CMOVE 
FRAGMENTS SIGNON 
B3FC 8 DUP DISK# TO OLDISK# TO 
1400 R> 1* 2 

DO I READ B400 OVER COO CMOVE COO + 
LOOP DROP 0 DIRTY TO ; 

T: OLDLOAD ACT EO MS 1 SEEK 7ED0E 
IF 1 READ OF <LOAD> WARM END IF ; 



:S 

\ OLDLOAD \ 



. LTABLE ROM - AIM + 6 + ! 
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0 ( <LOAD> OLDLOAD LOAD ) HEX 

1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 

12 T: LOAD 1 READ B400 ORIGIN ADDR - 

13 SAVED ADDR ♦ 8 <LOAD> 

14 EBOT BEOT EOT 1+ OVER - CMOVE> 

15 WARM ; 

• 16 

17 

18 

19 

20 
21 
22 
23 
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0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



( DRAG ) HEX 

T: DRAG SEL 0 COO UM/MOD SWAP 0- 0- 
1 READ 

B400 SAVED ADDR 800 - ♦ 8 >R 
OF R8 - U< 

IF R> 

BOS EOT 1+ SEL - SEL DUP >R CMOVE> 

<LOAO> DEACT -1 DIRTY TO 

EBOT EOT 1+ OVER - REVERSE 

BEOT EOT 1+ OVER - REVERSE 

EBOT R8 REVERSE 

FIXEND 

R> EBOT DUP >R +T0 
R8 BOT +ALIGN 
• PAGES 07F IK 

IF R> EBOT SHOWMARK WARM ENOIF 
DELETE BEEP 
ELSE BEEP DEACT 
ENOIF R> DROP ; 



0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



LABEL TIMEOUT? ( — flag ) 

PURPOSE: count down the timer, returning 
TRUE when it gets to 0. If the value 
of TIMER is between 126 and 256, 
prepare the system so that DISK is 
fooled into loading the disk in the 
drive. 



LABEL STACK? ( — flag ) 
LABEL RP! ( — ) 

T: MAIN RP! 
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0 ( WRITE APPLEDISK ) HEX 

1 

2 ( disk# track# -- flag ) 

3 

4 T: WRITE >R R8 SEEK 

5 B3F0 10 0 FILL 

6 DISK# B3FC ! 

7 0 B3FE C! 

8 R8 B3FF C! 

9 CHECKSUM B3FE C! 

10 <WRITE> 7ED0E 0- 

11 IF RECAL R9 SEEK 

12 <WRITE> 7E0DE 0- 

13 IF BEEP DEACT R> DROP 0 EXIT 

14 ENDIF END IF R> DROP 1 ; 

15 

16 T: APPLEDISK DIRTY 

17 IF EBOT BOT - EOT BEOT - + 2 - 

18 IF ABOOT ELSE BEEP ENDIF 

19 ELSE ABOOT ENDIF ; 

20 
21 
22 
23 

276 

0 ( WRITES ) HEX 

1 

2 ( addrass hi-track*1 Lo-track — flag ) 

3 ( tru* * succass ) 

4 

5 T: WRITES 

6 DO DUP B400 COO CMOVE 

7 I WRITE 0- 

8 IF DROP 0 LEAVE 

9 ENDIF COO * 10 MS 

1 0 LOOP ; 

11 

12 ;S WARNING, the flag is FALSE after 

13 successfully writing the last COO 

14 bytes in memory ( from F400 - FFFF ) 

15 so don't use the flag if you are 

16 writing the last COO bytes. 

17 

18 

19 

20 
21 
22 
23 
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0 ( SAVE ) HEX 

1 

2 ( — | assumes EDDE disk turning at 

3 track 0 with matching old disk #) 

4 

5 T: SAVE PROT? 

6 IF BEEP 



0 T: WARM 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



0 FRAG .VECS 

1 PURPOSE: this is a copy of the vectors 

2 needed for the custom modem support: 

3 \ .MODE JMP , ( . IVEC > 

4 \ .MEMIT JMP, ( . OVEC ) 

5 RTS. NOP. NOP, ( . SVEC ) 

6 RTS. < . QVEC ) 

7 they are moved to $1594 by RAMKEYS 

8 

9 LABEL ? RAMKEYS ( — ) 

10 PURPOSE: reload ramtable if RTABLE+3A 

11 does not equal the version number. 

12 

13 if the value at RTABLE+3A is equal to 

14 the version number then exit. 

15 otherwise execute the next definition. 

16 RAMKEYS 

17 

18 

19 

20 
21 
22 
23 



0 LABEL RAMKEYS ( -- ) 

1 PURPOSE: copy key and command 

2 translation tables into ram. 

3 

4 prepare to copy: 

5 store the address of .XLAT in XO. 

6 store the address of HIMEM in XI . 
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7 ELSE 4 LASTC TO 

8 BEOT EBOT EOT 1+ BEOT - CMOVE 

9 DISK# SERIAL# DISK# TO 

10 EBOT EOT BEOT - + 

11 800-1+0 COO UM/MOD SWAP 

12 0- 0- - SAVED TO 

13 800 SAVED 1+ 1 WRITES 

14 IF DROP DISK# OLOISK# TO 0 DIRTY TO 

15 0 SEEK WRITEO 

16 ELSE DISK# TO 

17 ENDIF EBOT BEOT EOT 1+ OVER - CMOVE> 

18 ENDIF ; 

19 

20 ;S ROM? 0- DOOO 13 11 

21 DO DUP CM0VE2 COO ♦ I WRITE 0- 

22 IF DROP 0 LEAVE ENDIF 30 MS LOOP 

23 IF DOOO 1713 WRITES DROP 
277 

0 ( DISK ) HEX 

1 T: DISK DISKON ?EDDE OUP 0- 

2 IF DROP RECAL 1 SEEK ?EDD£ ENDIF 

3 IF <READ> B3FA 8 EDDE - 

4 IF GET EXIT ENDIF 

5 EBOT BOT - EOT BEOT - ♦ 2 - 

6 IF LOAD 

7 ELSE <READ> B3FC 8 DISK# - 

8 IF OLDISK# SAVE OLDISK# TO 

9 ELSE DIRTY 

10 IF BOS BOT 2 + U< 

11 EOT 2 - BEOT U< AND 

12 IF ORAG ELSE BEEP ENDIF 

13 ELSE B3FC 8 OLDISK# - 

14 IF LASTC 4 - SERIAL# DISK# - AND 

15 IF SAVE ELSE BEEP ENDIF 

16 ELSE 1 SEL U< 

17 IF DRAG ELSE LOAO ENDIF 

18 ENDIF ENDIF ENDIF ENDIF 

19 ELSE 0 SEEK ? APPLE 

20 IF APPLEDISK ELSE SAVE ENDIF 

21 ENDIF DEACT ; 

22 

23 \ DISK \ . LTABLE ROM - AIM ♦ 8 + ! 
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7 store the address of .LTABLE in X2 . 

8 store the address of RTABLE in X3. 

9 copy S20 bytes from .XLAT to HI MEM. 

10 copy S40 bytes from .LTABLE to RTABLE. 

11 store the version number (at .MSGO+SOC) 

12 to RTA8LE+3A. 

13 

14 NOTE: this is why the position of the 

15 version number in .MSGO, on screen 111, 

16 should not be changed unless a similar 

17 change is made elsewhere. 

18 

19 

20 
21 
22 
23 

0 LABEL INIT ( — ) Initialize for no disk 

1 BOTTOM from BOV. EOT from EOV. 

2 YWRAP is $30. as it counts from S30 

3 to S7F for a total of dec 80 (columns) 

4 before it turns negative. Calls <INIT>. 

5 T: <INIT> ( — ) 

6 clear the key and modem queue. 

7 set page format to hex 50 wide (80) 

8 by hex 36 long (54) 

9 CHAR holds a "null" (0) - empty 

10 start disolay at top 

11 nothing in the cut buffer, 

12 beginning of text is a formfeed (1C) 

13 select the formfeed 

14 eot is a CR (ID) and formfeed (1C). 

15 total line and page count is zero. 

16 REWINDOW from beginning of text. 

17 LEXXED state-false EXTENDED true. 

18 calc GAP (- $100 - room*). 

19 INITBASIC. save printer string in PBUF. 

20 initialize for FX80 printer. 

21 set page length to $42. 

22 save printer string in PBUF. 

23 load tables into ram. 



scr # 278 

0 ( COLD BOOT ) HEX 

1 

2 T: COLD DEACT 

3 ORIGIN ADDR 1000 0 FILL FRAGMENTS 

4 400 MS INIT WARM ; 

5 

6 T: BOOT C010 C8 86 - 

7 IF 0 CHAR C! COLD 

8 ENOIF DISKON 0 80 0 

9 DO 7F CO EC C8 U< + LOOP 

10 NEGATE 8 U< IF COLD ENDIF 

11 ?ED0E IF <READ> B3FA 8 EDDE - 

12 IF COLD ELSE LOAD ENDIF ENDIF 

13 0 SEEK ? APPLE IF ABOOT ENDIF 

1 4 COLD ; 

15 



0 T: COLD 

1 PURPOSE: initialize for no disk. 

2 turn disk off. 

3 clear all variables to zero. 

4 load in code fragments. 

5 wait 400 milliseconds 

6 INITialize text variables and BASIC. 

7 WARM start. 

8 

9 T: BOOT ( — ) 

10 PURPOSE: boot Swyft system and copy text 

11 from an Edde disk. 

12 turn disk on. 

13 if holding *F then do a coldstart. 

14 if disk is unformatted (cannot find 

15 a header) then do a COLD start. 
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16 16 

17 17 

18 18 

19 19 

20 20 

21 . 21 
22 22 

23 23 

279 

0 ( .RESET RESET ) HEX 0 

1 1 

2 FRAG .RESET ( — ) ROM? LDA. NE 2 

3 IF, COBO LDA. 3 

4 ELSE, <AUX> JSR, C08F LDA, C08F LDA, 4 

5 \ .INTERRUPT DUP FF AND 8B LOA. S 

6 FFFE STA, 6 

7 SWAB FF AND SB LDA. FFFF STA. 7 

8 ENDIF, D200 JMP. 8 

9 9 

10 T: RESET 10 

11 FRAGMENTS SETDISP SIGNON 11 

12 7F C061 C9 U< IF ABOOT ENDIF 12 

13 7F C062 C8 U< IF COLO ENDIF 13 

14 39E 8 36AS - IF WARM ENDIF 14 

15 BOOT ; IS 

16 16 

17 ;S Upon reset, tha //c storas Its mouse 17 

18 interrupt vector at tha RECEIVE 18 

19 interrupt (FFFE). ‘RESET fixes it. 19 

20 20 

21 Ctrl-open apple-reset does a mem test 21 

22 in the disk version, instead of COLD 22 

23 23 

scr 8 280 

0 ( last pointers ) HEX 0 

1 1 

2 ( hard reset vectors for Edde card ) 2 

3 \ .INTERRUPT AIM 2FFE ♦ ! ( irq ) 3 

4 \ .RESET AIM 2FFC ♦ ! ( reset ) 4 

5 \ .RESET AIM 2FFA + ! ( nmi ) 5 

6 EOOE AIM 2FF8 ♦ ! { romcard id ) 6 

7 \ .INTERRUPT AIM 2FF6 + ! < copy of irq) 7 

8 • 8 

9 ( emplace track 0 boot image ) 9 

10 HEX 12 BLOCK 200 + AIM 200 - 200 CMOVE 10 

11 11 

12 12 

13 13 

14 14 

15 15 

16 16 

17 17 

18 18 

19 19 

20 20 

21 21 

22 22 

23 23 
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if an Edde disk then load it. 
if an apple disk then boot it. 
if disk is none of the above then do a 
COLD start . 



FRAG .RESET ( — ) 

PURPOSE: handle 6502 RESET or NMI. 
if this is the romcard version then 
turn on romcard (LDASCOBO). 
else turn on the bank 1 (JSR<AUX>) 
and store the receive interrupt vector 
at SFFFE (6502 IRQ)— this is needed 
since the //c stores an interrupt for 
the mouse there, 
jump to D200 and start Swyft. 

T: RESET ( — ) 

PURPOSE: respond to control-reset and to 
control-apple-reset . 
load rom or disk code fragments, 
set up SO column display. 

SIGNON here prevents garbage on screen, 
if open apple reset, boot the disk, 
if closed apple reset, do a COLD start, 
if a warm start has bean dona 
do it again. 

if none of the above then do a BOOT. 
NOTE: stored at DOOA for reset. 



( last pointers ) HEX 

set up reset, nonmaskable interrupt and 
interrupt request vectors 
vectors for reset and entry points 

move S200 bytes to the end of bank 2 
for the boot track 0 image 
there are $200 less bytes in bank 2 
available than seen on the printout 
for compilation 
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We claim: 

1. In a computer system having a display device, a 
memory device, an entry device and processing means 
for displaying symbols and a cursor on the display de- 
vice in response to signals from the entry device, a 5 
method for creating and modifying a string of symbols, 

in response to signals from the entry device, the method 
comprising the steps of: 

displaying on the display device a string of symbols; 
displaying on the display device a cursor, said cursor 10 
occupying a display region and having a first cur- 
sor part occupying a first part of the display region 
and a second cursor part occupying a second part 
of the display region adjacent the first part of the 
display region, the first part of the display region 15 
including a symbol in the string of symbols; 
in response to signals of a first type from the entry 
device, said first type of signals including signals 
representing an entered symbol, inserting the en- 
tered symbol into the string of symbols at the sec- 20 
ond part of the display region; and 
in response to signals of a second type from the entry 
device, said second type of signals designating a 
deletion operation, performing the designated dele- 
tion operation by deleting the symbol included in 25 
the first part of the display region. 

2. The method of claim 1, further comprising the 
steps of: 

in response to signals of a third type from the entry 
device, moving said cursor to a desited location on 30 
the display device indicated by said third type of 
signals, and coalescing the cursor by positioning 
the first part of the cursor and the second part of 
the cursor at a single symbol occupying the desired 
location. 35 

3. The method of claim 1 wherein the display region 
is a first display region and said insetting step further 
comprises moving the cursor to a second display region 
having a first part including the inserted symbol. 

4. The method of claim 2 further comprising the step 40 
of: in response to signals of a fourth type from said entry 
device, extending the first part of the display region to 
include a plurality of symbols. 

5. An apparatus for creating and modifying a string of 

symbols, the apparatus comprising: 45 

a processing unit; 

entry means, coupled to said processing unit, for 
transmitting signals to said processing unit; 
display means coupled to said processing unit for 
displaying symbols and a cursor at specified loca- so 
tions in response to signals from said processing 
unit; 

said processing unit comprising means for generating 
signals for: 

displaying, on said display means, a string of symbols; $s 
displaying, on said display means, a cursor, said cur- 
sor occupying a display region and having a first 
cursor part occupying a first part of the display 
region and a second cursor part occupying a sec- 
ond part of the display region adjacent the first part 60 
of the display region, the first part of the display 
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region including a symbol in the string of symbols, 
and 

in response to to a first type of signals from said entry 
means inserting an entered symbol into the string of 
symbols at the second part of the display region, 
said first type of signals including signals represent- 
ing the entered symbol; and 

in response to a second type of signals from said entry 
means, performing a deletion operation by deleting 
the symbol included in the first part of the display 
region; 

in response to a third type of signals from said entry 
means, moving the cursor to a desired location on 
the display means indicated by said third type of 
signals and coalescing the cursor by positioning the 
first part of the cursor and the second part of the 
cursor on a single symbol occupying the desired 
location; and 

in response to signals of a fourth type from the entry 
device, extending the first part of the display re- 
gion to include a plurality of symbols. 

6. In a computer system having an entry device, a 
display device and processing means for displaying 
symbols and a cursor on the display device in response 
to signals from the entry device, a method for indicating 
loci of operations, the method comprising the steps of: 

displaying a string of symbols on the display device; 

displaying a cursor on the display device, said cursor 
having a first part and a second part; 

positioning the first part of the cursor at a first region 
on the display, the first region including a symbol 
in the string of symbols; 

positioning the second part of the cursor at a second 
region on the display adjacent to the first region; 

in response to signals of a first type from the entry 
device, said first type of signals including signals 
representing an entered symbol, inserting the en- 
tered symbol into the string of symbols by display- 
ing the entered symbol at the second region, mov- 
ing the first part of the cursor to the second region 
and moving the second part of the cursor to a third 
region on the display adjacent the second region; 

in response to externally-supplied signals of a second 
type, deleting the symbol included in the first re- 
gion. 

7. The method of claim 6 further comprising the step 
of: 

in response to signals of a third type from the entry 
device, said third type of signals specifying a target 
location, moving the cursor to the target location 
and coalescing the cursor by positioning both parts 
of the cursor on a single symbol occupying the 
target location. 

8. The method of claim 6 wherein the first part of the 
cursor is displayed in reverse video and the second part 
of the cursor is displayed as a blinker. 

9. The method of claim 8 further comprising the step 
of: in response to signals of a fourth type from said entry 
device, extending the first display region to include a 
plurality of symbols. 
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